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ABSTRACT 



ABSTRACT 



PROGRAM CZTULA MEASURES THE TIME REQUIRED AND GAP 
SIZES PRODUCED BY THE Tn02/TU45 MAGTAPE 
DRIVE/SLAVE. 

THE TEST yiLL CHECK BOTH THE LOGIC GENERATED 
TIME DELAYS, AND THE DISTANCES TRAVLED BY THE 
TAPE IN RESPONSE. 

ACTUAL TAPE SPEED HAY ALSO BE CHECKED BY USING 
THE SPEED TESTS WITH AN 800 BPI SKEW TAPE. 

DEVICE ERRORS ARE CHECKED AND PRINTED AS THEY 
OCCUR. IF THE ERROR IS DATA RELATEDCPARITY; ETC) 
THEY ARE PRINTED AS SOFT ERRORS. 

IF THE TIME CHECK IS OUT OF RANGE, IT IS PRINTED 
AS AN OUT OF RANGE ERROR. 
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CHAPTER 1 
REQUIREMENTS 

PDP-11 FAHILY CENTRAL PROCESSOR WITH 4K HEWRV WITH UP TO 64 TH11/TH02 
CONTROLLER/HAGTAPE STATIONS. 

1.1 OPTIONAL EQUIPMENT USED 
1 . NONE 

1.2 STORAGE 

PROGRAM LOADS AND RUNS IN THE FIRST 4K OF MEMORY. 

1.3 PRELIMINARY PROGRAMS (TO ASSURE HARDWARE OPERATION) 

CZTUKA CONTROL LOGIC TEST 
CZTUJA BASIC FUNCTION TEST 
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CHAPTER 2 






1 AAfXTkir kkift CTkDTIkifl DDOrCf\llOC 






THE PROCEDURE IS AS FOLLOWS: 






LOAD PROGRAM USING THE ABSOLUTE LOADER 
« LOAD ADDRESS = 200 

SET OPcRAiING aWITCHca 
PRESS START 






PROGRAM WILL REQUEST DRIVE (Tn02) AND SLAVE (TU45) NUMBERS TO BE 
DRIVE/SLAVE TO ;BE TESTED. 






REQUESTS FOR TAPE SPEED TESTS AND NRZ ONLY MODE VILL BE MADE. 
RESPONSE TO TAPE SPEED ONLY REQUEST WITH A ONE (1) WILL CAUSE 
THE PROGRAM TO EXECUTE TEST 31 AND 32 ONLY. THIS IS THE ONLY WAY 
TO TEST TAPE SPEED. 

NRZ ONLY MODE WILL CAUSE THE PROGRAM TO SKIP THE 1600 BPl DATA TIME TEST. 
TvDc rniiTDm M t ii> Tfi nci etc i iaic TVDcn nD DiiBmiT Tn nci CTC i act 

CHARACTER(S). 






rKUuNAn WILL rUDL ion 1 mtd Kc WUlKcU AlVU NcrUK 1 cKKUKd • 






2.1 ACT11 OPERATION 






IF THE PROGRAM IS RUN IN QUICK VERIFY MODE, FUNCTION TESTS ARE NOT 
ITERATED. 
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CHAPTER 3 

SWITCH SETTINGS 

IF A CONSOLE SWITCH REGISTER IS NOT PRESENT, THE FOLLOUING 
PROCEDURE MUST BE IMPLEMENTED: 

A) LOAD ADDRESS 1000(8) LABELLED "SUR" 

B) DEPOSIT THE VALUE 176(8) 

C) LOAD ADDRESS 176(8) 

D) DEPOSIT THE DESIRED SUITCH VALUE. 



SW15 



HALT ON ERROR 



THIS SWITCH WHEN SET WILL HALT THE 
PROCESSOR WHEN AN ERROR IS DETECTED. 
THE PC^2 AND PSW AT THE TINE OF THE 
ERROR IS STORED ON THE STACK. PRESSING 
CONTINUE WILL CAUSE THE ERROR TO BE 
TYPED (IF SELECTED) AND FURTHER TESTING 
RESUMED. 



SWU 
SW13 
SW11 

SWIG 



LOOP SUBTEST 



INHIBIT ERROR 
TYPEOUT 



THIS SWITCH WHEN SET LOOPS THE CURRENT 
SUBTEST REGARDLESS OF ERROR CONDITION. 

THIS SWITCH WHEN SET INHIBITS ERROR 

TYPEOUT. 



INHIBIT SUB- THIS SWITCH WHEN SET CAUSES EACH SUBTEST 
TEST ITERATION TO BE EXECUTED ONLY ONCE. (INITIAL 
STARTUP ONLY). 



INHIBIT 
FUNCTION TIME 
PUBLICATION 



THIS SWITCH WHEN SET WILL INHIBIT THE 
PRINTING OF THE FUNCTION TINES. (SEE 
CHAPTER 8.) 



SW09 RING BELL 

ON ERROR 

SW07 HALT AFTER 

SELECTED TEST 



THIS SWITCH WHEN SET WILL RING THE BELL 
ON THE TTY WHEN AN ERROR IS DETECTED. 

THIS SWITCH WHEN SET WILL CAUSE THE 
PROGRAM TO HALT AFTER THE TEST SELECTED 
IN SW05-SW00 IS EXECUTED. 



SW06 CONTINUOUS THIS SWITCH WHEN SET WILL CAUSE THE 

CYCLE PROGRAM TO RUN CONTINUOUSLY UNTIL 

STOPPED BY THE OPERATOR. 
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Sy5-0 TEST SELECT THE PROGRAM WILL HALT AFTER EXECUTION 

OF THE TEST SELECTED WHEN SU07 IS SET. 
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CHAPTER A 
ERRORS 



TWO TYPES OF ERRORS ARE DETECTED BY THIS PROGRAM. HARDWARE ERRORS AND 

INCORECT FUNCTION TIMES. 



4.1 ERROR TYPEOUT FORMAT (HARDWARE): DATA RELATED ERRORS (IE: PARITY ERROR) ARE PRINTED AS SOFT ERRORS 

AND HAVE NO EFFECT ON TIME. 



TEST » XXXXXX DEVICE ERROR 

CS1 UE BA FC CS2 DS ER1 
AAAAAA BBBBBB CCCCCC DDDDDD EEEEEE FFFFFF 6GGGGG 

WHERE: 

XXXXXX = TEST NUMBER 

AAAAAA-IIIIII = CONTENTS OF TAPE REGISTER 172U0-1 72454 



4.2 ERROR TYPEOUT FORMAT (FUNCTION TIME OUT OF RANGE) 
TEST # XXXXXX OUT OF RANGE ERROR 
RANGE = <AAAAAA-BBBBBB> ACTUAL - CCCCCC 
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CHAPTER 5 
SUBROUTINE ABSTRACTS 



5.1 .SCOPE 

THE SCOPE ROUTINE IS CALLED BY THE SCOPE (EHT) INSTRUCTION AT THE 
START OF EACH SUBTEST. THE .SCOPE ROUTINE PERFORHS TNE FOLLOWING 
FUNCTIONS: « 

1. LOADS RS WITH BASE ADDRESS 

2. TYPES TIHE LINE <SW08> 

3. PROVIDES CONTINUOUS LOOP <SWU> 
A. nOVES FUNCTION TIME INTO TABLE 

5. OUTPUTS LINE ITE« IF SELECTED 

6. PROVIDES HALT ON TEST <SW07> 

7. DELAYS 350nS BEFORE STARTING TEST 

8. INIT'S DRIVE/SLAVE 

9. CLEARS THE ERROR FLAG (ERFLG) 

THE ROUTINE MONITORS SWU, SW11, SWIO. SW08, AND SW07. 

5.2 PUBLISH 



THE PUBLISH ROUTINE IS CALLED FROM THE SCOPE ROUTINE IF SW10 IS EQUAL 
TO 0 (PUBLISH TIME DOCUMENT). THE ROUTINE WILL PRINT A "SINGLE LINE 
ITEM" EACH TIME IT IS CALLED. 
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5.5 .HLT 

THE HLT ROUTINE IS CALLED BY THE HLT (TRAP) INSTRUCTION WHEN AN ERROR 

IS DETECTED. A HLT (TRAP) INSTRUCTION FORMATS THE ERROR INFORMATION 

AS SHOWN IN SEC 4.1. A HLT^I (TRAP^I) FORMATS THE ERROR AS SHOWN IN 
SEC 4.2. 
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CHAPTER 6 
MISCELLANEOUS 



6.1 STACK POINTER 

THE STACK POINTER IS INITAILLY SET TO 500 AND IS RESET TO 500 BY THE 
SCOPEA ROUTINE. 



6.2 EXECUTION TIME 

WHEN SU11=1 (INHIBIT ITERATIONS) THE TINE REQUIRED IS 3.5 MIN. 
WHEN SW11=0 (ITERATE SUBTESTS) THE TIME REQUIRED IS 4.5 MIN. 
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CHAPTER 7 
PROGRAM DESCRIPTION 



7.1 SAMPLE TIME DOCUMENT 

TrPE FIRST ADDRESS OF CONTROLER 1724A0 
TYPE TH02 DRIVE #'S TO BE TESTED 0 
FOR TM02 DRIVE 0- TYPE SLAVE #*S TO BE TESTED 7 
TAPE SPEED TESTS ONLY? (YES/NO = 1/0) 0 
NRZ ONLY? (YES/NO - 1/0) 0 
*********************************************** 

TM02 DRIVE FUNCTION TIMES- DRIVE # 0 SLAVE f 7 



FUNCTION 
WRITE FROM BOT 
WRITE START 
WRITE SHUTDOWN 
WRITE SETTLEDOWN 
READ FROM BOT 
READ START 
READ SHUTDOWN 
READ SETTLEDOWN 
READ REV START 
READ REV SHUTDOWN 
READ REV SETTLEDOWN 
TURN AROUND DELAY F-R 
TURN AROUND DELAY R-F 
GAP SIZE-STOP HALF 
GAP SIZE-START HALF 
GAP SIZE-INTERRECORD 
GAP CONSISANCY 
DATA TIME-200 BPI 
DATA TIME-556 BPI 
DATA TIME-800BPI 
DATA TIME-1600BPI 
ERASE GAP TIME 
WRITE FILE MARK 



TIME(SPECIFICATION) 
RANGE -<080000-068000> 
RANGE=<00SS00-004500> 
RANGE=<004500-003600> 
RANGE =<006000-004600> 
RANGE:<009SOO-007900> 
RANGE=<001 800-001 S00> 
RANGE*<001 700-001 300> 
RANGE =<006000-004600> 
RANGE=<001 800-001 SCO 
RANGE-<002300-001 900> 
RANGE=<006000-004600> 
RANGE«<006000-006000> 
RANGE -<008000-006000> 
RANGE -<008000-006000> 
RANGE :<008000-006000> 
RANGE=<008000-006600> 
RANGE s<008000-006800> 
RANGE-<0US60-013710> 
RANG£=<0U560-013710> 
RANGE=<0US60-013710> 
RANGE-<01 5000-01 3000> 
RANGE=<061000-05S000> 
RANGE=<064000-058000> 
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9 CHAN. SER. # 5009 

TIME(ACTUAL) 

ACTUAL=074000 
ACTUAL=005000 
ACTUAL=0040S0 
ACTUAL=005300 
ACTUALS008700 
ACTUAL=001650 
ACTUAL=001500 
ACTUAL =005300 
ACTUAL=001650 
ACTUAL=002100 
ACTUAL=005300 
ACTUAL-007000 
ACTUAL-007000 
ACTUALS007000 
ACTUAL=007000 
ACTUAL=007300 
ACTUAL=007400 
ACTUAL=014135 
ACTUALs014135 
ACTUALsOU135 
ACTUAL-OUOOO 
ACTUAL=058000 
ACTUAL=061000 
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7.1.1 SAMPLE TIME DOCUMENT FOR TAPE SPEED TESTS 

TYPE FIRST ADDRESS OF CONTROLLER 172440 

TYPE TM02 DRIVE #'S TO BE TESTED 0 

FOR Tn02 DRIVE 0- TYPE SLAVE #'S TO BE TESTED 7 

SPEED TESTS ONLY? (YES/NO = 1/0) 1 



*TM02 DRIVE FUNCTION TIMES- DRIVE # 0 SLAVE #79 CHAN. SER. # 5009 



* 



^FUNCTION 
•TAPE SPEED FUD 
•TAPE SPEED REV 



TIME(SPECIFICATION) 

RANGE=<013800-013000> 

RAN6E=<013800-0'i3000> 



TIHE(ACTUAL) 

ACTUAL=013330 
ACTUAL=013330 



i 
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SEQ OOU 


TR02 


DRIVE 


FUNCTION TIMER 
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7.2 


TEST SEQUENCE WITH RELATED ADJUSTMENTS AND ASSOCIATED 


HARDWARE 










TEST NO. /NAME 


RELATED ADJUSTMENTS 






ASSOCIATED HARDWARE 








1. 


WRITE FROn BOT 


*NONE 










*M92] ROM*M8903 ACCL 


CNTR 






2. 


WRITE START 


• • • 










• • 








3. 


WRITE SHUTDOWN 


. I ■ 










• • 








4. 


WRITE SETTLEDOWN 


• • • 










*n8921 SETTLEDOWN ONE 


SHOT 






5. 


READ FROM BOT 


* 1 • 










•M8921 ROM*H8903 ACCL 


CNTR 






6. 


READ START 




















7. 


READ SHUTDOWN 




















10. 


READ SETTLEDOWN 


* • • 










*H8921 SETTLEDOWN ONE 


SHOT 






11. 


READ REVERSE START 


* ** 










•n8921 R0H*H8903 ACCL 


CNTR 






12. 


READ REVERSE SHUTDOWN 


* • • 


















13. 


READ REVERSE SETTLEDOWN 


* ■ • 










•n8921 SETTLEDOWN ONE 


SHOT 






H. 


TURN AROUND F-R 












*n8921 R0n*n8903 ACCL 


CNTR 






15. 


TURN AROUND R-F 




















16. 


GAP SIZE-STOP HALF 


*FWRD/REV SPEED- 


START/STOP-RANPS 


•CAPSTAN SERVO LOOP 






17. 


GAP SIZE-START HALF 


*SANE AS 


IN TEST 


16 






ft 11 • 1 • ■ 








20. 


GAP SIZE INTERRECORD 


•FWD/REV 


SPEED 








ft • I I * • • 
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SEQ 0015 



Tn02 DRIVE FUNCTION TIMER 

21. GAP CONSISTENCY •SAME AS IN TEST 16 
•TEST NUMBER 22 IS RESERVED FOR FUTURE USE 

23. DATA TIME 200 BPI •NONE 

?A. DATA TIME 556 BPI • 

25. DATA TIME 800 BPI • 

26. DATA TIME 1600 BPI • 



•WRITE CLOCK 



» ■ 11 



27. ERASE GAP TIME 



30. WRITE FILE HARK 



31. TAPE SPEED-FORWARD 



32. TAPE SPEED-REVERSE 



■ I • f 



•n8921 R0M*n8903 ACCL CNTR 



•FWD SPEED 
•REVERSE SPEED 



•CAPSTAN SERVO LOOP 



•CAPSTAN SERVO LOOP 



NOTE: IF TIME PROBLEMS APPEAR IN T1 THRU T30. RUN TAPE SPEED TESTS FIRST 
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7.3 


TEST DESCRIPTIONS: 






THE FIRST THIRTEEN (13) TESTS (T1 - T15) ARE CHECKS OF THE 






ROM CIRCUITS IN THE TU45 (nB921). THE ACCL COUNTER IN THE 






Tn02 (M8903). AND THE SETTLEDOUN ONE SHOT (n8921). 






T1 . WRITE FRCn BOT: 






THIS TEST WILL MEASURE ACCELLERATION DELAY REQUIRED TO 






MOVE THE TAPE APPROXIMATELY SEVEN (7) INCHES FORWARD 






FROM DEAD STOP AT BOT BEFORE STARTING TO TRANSFER DATA. 






1. ASSURE TAPE IS STOPPED AT BOT. 






2. ISSUE A WRITE COMMAND 






3. MONITOR BIT 15 OF TC (ACCL) 






A. TIME FROM GO TO ACCL RESET IS BOT DELAY 






5. STOP 






T2. WRITE START: 






THIS TEST WILL MEASURE ACCELLERATION DELAY JUST AS IN 






T1. HOWEVER THE TIME WILL BE LESS WHEN NOT STARTING 






FROM BOT. 






1. LEAVE TAPE AT ITS PRESENT POSITION. ASSURE THAT IT IS STOPPED 






2. ISSUE A WRITE COMMAND 






3. MONITOR BIT 15 OF TC (ACCL) 






4. TIME FROM 60 TO RESET OF ACCL IS START DELAY 






5. STOP 






T3. WRITE SHUTDOWN: 






THIS TEST WILL MEASURE THE TIME FROM EOR (LAST CHARACTER 






WRITTEN ON TAPE) TO THE START OP SETTLEDOUN TIME. THIS 






ASSURES, IN PART, A PROPER INTERRECORO GAP. 






1. LEAVE TAPE AT ITS PRESENT POSITION. ASSURE THAT IT IS STOPPED 






2. ISSUE A WRITE COMMAND. 






3. MONITOR FRAME COUNTER AND BIT 4 OF DS (SDWN) 






4. TIME FROM FC=0 TO ASSERTION OF SDUN IS 






THE SHUTDOWN TIME. 






5. STOP 






T4. WRITE SETTLEDOWN: 






THIS TEST WILL MEASURE THE SLOWDOWN TINE. THE TIME 






FROM THE START OF SLOWPP "N UNTIL THE TAPE SHOULD 






BE STOPPED. THIS IS A . ».(T OF THE GAP TIMING IN LOGIC. 






THE MECHANICAL POSITIONING OF THE TAPE IN THE GAP DISTANCE 






WILL BE MEASURED IN A LATER TEST. 






1. LEAVE TAPE AT ITS PRESENT POSITION. ASSURE THAT IT IS STOPPED 






2. ISSUE A WRITE COMMAND 
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3. nONITOR BIT 4 OF DS (SDUN) 

4. TINE FROM SET OF SOWN TO RESET OF SDUN IS THE 
SETTLEDOUN DELAY 

5. STOP 
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1 J « nCAU r nun i 






THIS MEASUREMENT IS MADE EXACTLY AS THE WRITE 






MEASUREMENT IN T1. USE THE SAME RECORD THAT WAS 






URITTFN IN T1 






1 . REWIND TO BOT 






7 ASSURF TAPF HAS HAD TIMF TO FQNF TO A FOMPLFTF STOP 






^ RFAD FDRUARD 1 RFmRD 






4. MONITOR BIT 15 OF TC (ACCL) 






5. TIME FROM GO TO ACCL IS BOT DELAY 






6. STOP 






T6. READ START 






THIS TFST MFASURFS THF SAMF DFLAV AS IN T2 






1 URITF 1 RFrnRD THFN RACK^PACf nUFR IT ASSIIRF TAPF IS STOPPFD 






? ISSUF A RFAD FORWARD OF THF RFTORD WRITTFM IM STFP 1 






3. MONITOR BIT 15 OF TC (ACCL) 






4. TIME FROM GO TO RESET OF ACCL IS START DELAY 






5. STOP 






T7. READ SHUTDOWN: 






THIS TEST MEASURES THE SAME DELAY AS IM 






1 URITF 1 RECORD THFN BAFKSPAfF OVFR IT ASSURE TAPF IS STOPPED 






7 RFAD FORWARD THF RFCORD WRITTEN IN STEP 1 






^ MONITOR FRAMF tOllNT AND RIT U OF DS (SDUN) 






4. TINE FROM FC=RECORD SIZE (LAST FRAME READ) TO SDWN=1 


- 




IS THE SHUTDOWN TIME. 






5. STOP 






T10. READ SETTLEDOWN: 


• 




THIS TFST MFASURFS THE SAMF DFl AY AS IN T4 






1 WRITE 1 RFCORD THFN BAFKSPACF OVFR IT ASSIJRF TAPF IS STOPPFD 






7 RFAD FORWARD THF RFCORD WRITTFN IM STFP 1 






^ MONITOR BIT 4 OF DS (SOWN) 






4. TIME FROM SET OF SDWN TO RESET OF SOWN IS THE 






SETTLEDOWN DELAY. 






5. STOP 
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Til RFAD RFUFR^F START- 






THIS TEST WILL MEASURE THE START DELAY IN THE REVERSE 












1 URITF 1 RFrnRf) ASSIIRF TAPF IS STOPPFO 






7 RFAH RFUFRSF THF RFmRD URITTFN IN STFP 1 






3. MONITOR BIT 15 OF TC (ACCL) 






A. THE TIME FROM GO TO RESET OF ACCL IS THE START TIME 






5. STOP 






T17 RFAD RFUFRSF SHIJTDOUN 






THIS TEST WILL MEASURE THE READ SHUTDOWN IN THE REVERSE 






niRFTTinM 






1 URITF 1 RFrnRD ASSllRF TAPF IS STOPPED 






? RFAD RFUFRSF THF RFCORD WRITTEN IN STEP 1 






X MONITOR FRAMF mitNTFR AND BIT A QF DS (SDWN) 






A. TIME FROM FC=RECORD SIZE (LAST FRAME READ) TO SDWN=1 






IS THF RFAD RFUFRSF SHUTDOWN TIME 






5. STOP 






T13 RFAD REVERSE SETTLEDOWN: 






THIS TEST WILL MEASURE THE READ SETTLEDOWN IN THE REVERSE 






DIRFTT ION 






1 URITF 1 RFTORD ASSliRF TAPF IS STOPPED 






7 RFAD RFUFRSF THF RFTORD WRITTEN IN STEP 1 






^ MONITOR BIT 4 OF DS (SDWN) 






4. TIME FROM SET OF SDWN TO RESET OF SDWN IS THE 






SETTLEDOWN DELAY 






5. STOP 






T14 TURN AROUND DFL AY-FORWARD TO REVERSE 






THIS TEST WILL MEASURE THE TIME REQUIRED FOR THE TAPE 






TO THANGF DIRECTION 






1 LEAVE TAPE AT ITS PRESENT POSITION ASSURE THAT IT IS STOPPED 






? ISSUE A WRITE FORWARD OF AT LEAST 20 FRAMES 






3 MONITOR BIT 7 OF DS (DRY) 

J • nwn A'wn wii i wr 






4 WHEN DRY IS ASSERTED (FOR) IMMEDIATELY ISSUE A 












S MOMIinR RTT 1S OF Tf fAffl ) 






6. TIME FROM GO OF READ REVERSE TO RESCT OF ACCL IS 






THE TURNAROUND TIME. 






7, STOP 
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T15. TURN AROUND DELAY-REVERSE TO FORWARD 

THIS TEST WILL MEASURE THE TIME AS IN TU, BUT IN THE 
OPPOSITE DIRECTION. 

1. WRITE 1 RECORD. 

2. ASSURE TAPE IS STOPPED 

3. READ REVERSE 

A. MONITOR DRY (BIT 7 OF DS) 

5. WHEN DRY = 1, ISSUE A READ FORWARD 

6. MONITOR ACCL (BIT 15 OF TO 

7. TIME FROM GO FORWARD TO ACCL = 1 IS THE TURN AROUND TIME. 

8. STOP. 
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GAP MEASUREMENTS: 

THE PREVIOUS THIRTEEN (13) TESTS WERE MEASUREMENTS OF LOGIC 
DELAYS PERFORMED BY THE TM02 OR TU4S IN ORDER TO ALLOW FOR 
PROPER ACCELERATION AND DECELLERATION OF TAPE ACCORDING TO 
THE DESIRED INTEROCORD GAP (.6 INCHES). THIS TEST, HOWEVER, 
WILL MEASURE THE PHYSICAL SIZE OF THE INTERCORD GAP THAT 
EXISTS ON TAPE AS A RESULT OF THE START/STOP TIMES OF 
THE CAPSTAN ITSELF. BECAUSE THE INTERRCORD GAP IS 
CREATED BY TWO ACTIONS, THE START OF MOTION AND THE 
STOP OF MOTION IT IS NECESSARY TO MAKE TWO SEPERATE 
MEASUREMENTS. A THIRD MEASUREMENT. MADE ON THE FLY, OF 
THE ENTIRE LENGTH OF THE GAP WILL ALSO BE MADE. 

T16. GAP SIZE (STOP HALF) 

THIS TEST WILL MEASURE THE DISTANCE TRAVLED BY THE TAPE 
IN A STOP CYCLE. IN OTHER WORDS, THE DISTANCE INTO 
THE IRG. 

1. WRITE 1 RECORD. 

2. ASSURE TAPE IS STOPPED. 

3. ISSUE A READ REVERSE OVER THE RECORD 

4. MONITOR THE FRAME COUNT FOR THE FIRST FRAME READ (FC = 1) 

5. THE TIME FROM G0=1 TO FC=1 IS THE LENGTH OF THE GAP 

6. STOP 

T17. GAP SIZE (START HALF) 

THIS TEST WILL MEASURE THE DISTANCE OF TAPE TRAVEL 
DURING START UP. 

1. WRITE 1 RECORD, THEN REVERSE OVER IT, ASSURE TAPE IS STOPPED. 

2. ISSUE A READ FORWARD 

3. MONITOR FC FOR FC=1 

4. TIME FROM G0=1 TO FC=1 IS START DISTANCE 

5. STOP 

T20. GAP SIZE (INTERRECORD) 

THIS TEST WILL MEASURE THE ENTIRE LENGTH OF THE IRG ON 
THE FL6. THE TIME VALUE OF THIS TEST SHOULD NOT BE 
EQUAL TO A SUMMATION OF T16 AND T17 DUE TO THE FACT THAT 
THE ACCELLERATION AND DECELLERATION CURVES ARE NOT IN 
EFFECT. THE VALUE HERE SHOULD ACTUALLY BE LESS THAN THE 
SUM OF T16 AND T17. 

1. WRITE 2 RECORDS. 

2. READ REVERSE OVER THE SECOND RECORD 

3. MONITOR DRY (BIT t OF DS) 

4. WHEN DRY = 1, ISSUE A SECOND READ REVERSE 

5. MONITOR FRAME COUNT 

6. TIME FROM G0=1 OF SECOND READ REVERSE TO FC=1 IS THE 
LENGTH OF THE GAP. 
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T21. GAP CONSISTENCY: 

NOW THAT UE HAVE ESTABLISHED THAT THE INTERRCORD 

GAP IS THE PROPER SIZE, LET US DETERMINE THE CONSISTENCY 

OF THE GAP UNDER VARIOUS COMMAND EXECUTION TIMES. 

BY WRITING A SERIES OF RECORDS, EACH WITH A DIFFERENT 

DELAY BETWEEN EXECUTION, WE CAN ESTABLISH THE CONSISTENCY 

OF THE GAPS BY READING THESE RECORDS AND MONITORING 

THEIR INTERRECORD GAPS, ON THE FLY. 

1. REWIND TAPE TO BOT. 

2. WRITE ONE (1) RECORD TO GET TAPE OFF BOT 

3. WRITE SIXTEEN (16) RECORDS WITH A PROGRESSIVE DELAY 

OF FROM 0 TO 16 MILLISECONDS (APPROX) BETWEEN COMMANDS. 
A. BACKSPACE 16 RECORDS AND ALLOW THE TAPE TO STOP. 

5. READ FORWARD (NON-STOP) OVER THESE 16 RECORDS, FACH 
TIME MONITORING THE TIME FROM THE END OF RECORD (DRY) 
UNTIL THE FRAME COUNT NEXT GOES FROM 0 TO 1 (FC^D. 

6. THE TIMES FROM DRY TO FC=1 IS THE GAP TIME AND IT 
SHOULD REMAIN CONSISTANT FOR ALL RECORDS. 

7. STOP 

••(SEE GTIMTBL IN CZTULA LISTING FOR GAP TINES)** 



T22. RESERVED FOR FUTURE USE^***^ 
T23. DATA TIME AT 200 BPI : 

THIS TEST WILL MEASURE THE TIME REQUIRED TO WRITE 

ONE (1) INCH OF TAPE AT 200 BPI. 

BY WRITING A RECORD OF ENOUGH FRAMES TO MOVE 

THE TAPE 1 INCH (200 FRAMES). DATA RATE 

CAN BE VARIFIED. 

1. REWIND TO BOT AND ALLOW TAPE TO STOP 

2. WRITE A RECORD AT 200 BPI. 

3. MONITOR DRY (BIT 7 OF DS) FOR EACH RECORD 

4. THE TIME FROM FC=FCf1 TO DRY WILL BE THE TIME REQUIRED 
FOR 1 INCH AT THE SELECTED DENSITY 

5. STOP 



T24. DATA TIME AT 556 BPI: 

REPEAT STEPS 1 THRU 5 OF T23 AT 556 BPI. 

T25. DATA TIME AT 800 BPI: 

REPEAT STEPS 1 THRU 5 AT 800 BPI. 

T26. DATA TIME AT 1600 BPI (PE): 

REPEAT STEPS 1 THRU 5 AT 1600 BPI. 

••THIS TEST IS NOT EXECUTED IF NRZ ONLY^* 
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T27. ERASE: 






THE ERASE COHHAND WILL CAUSE AN AREA OF THE THREE (3) 






INCHES TO BE DC ERASED IN THE FORWARD DIRECTION. 






THIS TEST WILL ASSURE THAT THE PROPER DISTANCE IS 






ERASED. 






1. LEAVE TAPE AT ITS PRESENT POSITION. 






2. ISSUE AN ERASE COHHAND. 






3. MONITOR DRY (BIT 7 OF DS) 






4. THE TIME FROM GO TO DRY WILL BE THE TIRE 






REQUIRED TO ERASE 3 INCHES UF TAPE AND WILL 






REFLECT THE DISTANCE. DENSITY IS NOT A FACTOR. 






5. STOP 






T30. TAPE BARK: 






THIS TEST IS ALSO A CHECK ON THE THREE (3) INCH GAP. 






WHEN A TAPE HARK IS WRITTEN, A 3 INCH GAP IS 






CREATED BEFORE DATA IS PUT ON TAPE. 






1. LEAVE TAPE AT ITS PRESENT POSITION 






2. ISSUE A WRITE TAPE NARK COMMAND 






3. MONITOR DRY (BIT 7 OF DS) 






4. THE TIME FROM GO TO DRY WILL BE THE TIME 






REQUIRED TO WRITE THE TM RECORD PLUS THE 






3 INCH GAP. 






5. STOP 
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T31. TAPE SPEED FORWARD: 






THIS TEST REQUIRES THE USE OF AN 800 BPI SKEW TAPE! 






THE OPERATOR WILL BE REQUIRED TO MOUNT THE SKEW TAPE 






BEFORE EXECUTING THE TEST. THE SKEU TAPE IS THE ONLY 






UAY TO ASSURE THAT TAPE IS MOVING AT THE PROPER SPEED 






BECAUSE THE FREQUENCY OF FRAMES ON A SKEU TAPE IS 






GUARANTEED TO BE ACCURATE. 






1. ASSURE TAPE IS STOPPED AT BOT. 






2. ISSUE A READ FORWARD (800 BPI, NORMAL) 






3. MONITOR FC FOR FC = 800(10) 






4. MONITOR FC FOR FC = 8800(10; 






5. TIME FROM FC = 800 TO FC = 8800 IS THE TIME REQUIRED 






FOR TAPE TO TRAVEL 10 INCHES 






6. DIVIDE THE TIME FOR 10 INCHES BY 10. 






7. THE RESULT IS AN AVERAGE SPEED FOR 1 INCH. 






8. STOP. 






T32. TAPE SPEED REVERSE: 






THIS TEST IS THE SAME AS TEST 31, BUT SPEED IS 






MEASURED IN THE REVERSE DIRECTION. 






1. ADVANCE TAPE OFF OF BOT. 






2. ISSUE A READ REVERSE. 






3. REPEAT STEPS 3 THRU 6 IN THE REVERSE DIRECTION. 






4. STOP. 
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.NLIST MC 



952 




.LIST ME.SEQ.LOC.BIN 






.ENABL ABS 


9S4 




.TITLE CZTULAO TN02 DRIVE FUNCTION TIMER 


r J J 






9S6 




.SBTTL STARTING INSTRUCTIONS 


9S7 




LOADING AND STARTING PROCEEDURE 


9S8 




LOAD PROGRAM USING ABS LOADER 


959 




LOAD ADDRESS 200 


960 




SET SWITCH OPTIONS 


961 




PRESS START 


962 






963 




GENERAL REGISTER USAGE: 


964 




RO=ADDRESS OF 'FC* REGISTER (SET BY SCOPE) 


965 




R1=ADDRESS OF 'DS' REGISTER (SET BY SCOPE) 


966 




R2=RETURN PC FROfI TIMER (SET BY EACH TEST) 


967 




R3=INDEX INDICATING PREVIOUS OSCILLATOR POLARITY (SET BY TIMER) 


968 




R4=C0NTAINS 'TICK' COUNT WHEN TIMER IS RUNNING (SET BY TIMER) 


969 




RSsADDRESS OF CS1 (SET BY SCOPE) 


970 






971 




;SWITCH REGISTER SWITCH ASSIGNMENTS 


972 


100000 


SW15- 100000 .-HALT ON ERROR 


973 


040000 


SWU= 040000 ;L0OP SUBTEST 


974 


020000 


SWTS': 020000 ; INHIBIT ERROR TYPE OUT 


975 


004000 


SW11- 004000 .INHIBIT SUBTEST ITERATION 


976 


002000 


SW10= 002000 .INHIBIT PUBLICATION OF FUNCTION TIMES 
SW09= 001000 ;RING BELL ON ERROR 


977 


001000 


978 


000400 


SW08= 000400 ;TYPE LINE ITEM AFTER EACH ITERATION 


979 


00C200 


SW07= 000200 ;HALT ON TEST SELECTED IN SWOS-SWOO 


980 


000100 


SW06= 000100 : CONTINUOUS CYCLE 


981 






982 




.SBTTL MACRO DEFINITIONS 


983 






984 




.SBTTL REGISTER ASSIGNMENTS 


985 




; .DEFINITIONS AND REGISTER ASSIGNMENTS 


986 




; .-GENERAL REGISTER ASSIGNMENTS 


987 


000000 


R0=Z0 


988 


000001 


RIsZI 


989 


000002 


R2-X2 


990 


000003 


R3=Z3 


991 


000004 


R4=Z4 - 


992 


000005 


R5=X5 


993 


000006 


SP=X6 ' 


994 


000007 


PC=X7 * 


995 


000000 


R10=X0 


996 


000001 


R11=X1 


997 


000002 


R12=cX2 


998 


000003 


R13=X3 


999 


000004 


R14=X4 


1000 


000005 


R15=X5 


1001 






1002 




.-.REGISTER ADDRESSES 


1003 


1 77776 


PSW= 177776 ;;PR0CESSER STATUS WORD 


1004 


177774 


SLR= 177774 ;;STACK LIMIT REGISTER (11/40.11/45) 
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1005 


177772 


PIRO= 177772 


: PROGRAM 


INTERRUPT REQ. (11/45) 


1006 


177770 


UBREAIC= I f f f rO ; 


:NICRO-BREAK REGISTER (11/45) 


1007 


4 r ^ A 

177570 


UCLIB* i77C7A 


: SWITCH 


REGISTER 


4 AAA 

1008 


177570 


DISPLAY=17r5fO ; 


zDISPLAV 


REGISTER (11/45) 


1009 


177560 


TICS= 177560 


: KEYBOARD CSR 


1010 


177562 


^KB= 177562 ; 


:KEYBOARD DATA BUFFER REGISTER 


1011 


177564 


iPS= 177564 ; 


.'TELEPRINTER CSR 


4 A4 ^ 

1012 


177566 


TPB= 177566 ; 


•TELEPRINTER DATA BUFFER REGISTER 


4 A4 V 

1013 










4 A 4 J 

10U 




VECTOR ADDRESSES 






4 A 4 f 

1015 


AA A A A ^ 

000004 


ERRVEC=4 ; 


;ADDRESS OF ERROR VECTOR 


4 A 4 ^ 

1016 


AAAA4 A 

00001 0 


RESVEC-10 ; 


:ADDRESS OF RESERVED INST. TRAP VECTOR 
:ADDRESS OF 'T' BIT TRAP VECTOR 
;ADDRESS OF 'TRACE' TRAP VECTOR 
; ADDRESS OF 'BREAKPOINT' TRAP VECTOR 


4 A4 ^ 

1017 


AAAA4 £ 

00001 4 


TBITVEC=14 ; 


1018 


AAAA4 / 

000014 


TRTVtC=iA ; 


4 A4 A 

1019 


AAAA4 / 

000014 


BPTVEC=14 


4 A ^ A 

1020 


A AA A*^ A 

000020 


I0TVEC=20 


;ADDRESS OF lOT TRAP VECTOR 


4 A ^4 

1021 


A AAA i 

000024 


PFVcC=cA ; 


;ADDRESS OF POWER FAIL TRAP VECTOR 


4 A^^ 

1022 


AA A A T A 

000030 


ENTVEC=30 


;ADDRESS OF EHT VECTOR 


1 AIT 

1023 


AAAA T i 

000034 


TRAPVcC=3h ; 


.ADDRESS OF TRAP VECTOR 


102A 


AAAAX. A 

000060 


TKVtc= oO ; 


:ADDRESS OF TTY KEYBOARD INT. VECTOR 


1025 


A A A AX / 


TPVcC=o* ; 


: ADDRESS OF TTY PRINTER INTERRUPT VECTOR 


1026 


AAA1 1 i 

0001 IH 


PARVEC- 114 : 


.ADDRESS OF HA/HF PARITY ERROR VECTOR 


1027 


AAA*)/ A 

000240 


PIRVEC=240 ; 


:ADDRESS OF PIRQ VECTOR 


4 A^O 

1028 


AAA*)/ i 

000244 


FPEVEC=244 


:ADORESS OF FLOATING POINT INT. VECTOR 


1029 


AAAOC A 

000250 


IWVEC=250 


: ADDRESS OF HEH HGHT ERROR TRAP VECTOR 


4 ATA 

1030 










i AT i 

1031 




: CLOCK ADDRESS AND VECTORS 






i ATI 

1032 


1 Tic J A 


PLKCSRs 172540 ;ICW11-P 




1033 


AAAi Ay 

0001 Om 


PLKVEC- 104 






1 A V/ 


1 f roHO 


ICS= 177546 ;K«11-L 




i ATC 


AAAi AA 
000 lUU 


lKVEC= 100 






i A 

1036 


1 77C1 / 
1 f f > 1*1 


LPS= 177514 ;LP11 




1 AT7 


1 f f 3 10 


LPB= 177516 






i AVQ 










i AVO 

1039 




:RHl1,Tn02/TU45 REGISTERS 






1 Ay A 

1040 


1 7oy y A 


rnCSIs 172440 






4 Ay i 

1041 










1 Ay o 

1042 




;TH02/TU45 INDEX VALUES 






i Ay V 
1043 


AAAAAA 
000000 


CS1= 00 


; CONTROL STATUS #1 


1 Ay y 
104s 


AAAAAI 

000002 


UC= 02 






i Ay c 
10h5 


AAAAAy 
000004 


BA= 04 




;BUS ADDRESS REGISTER 


i Ay d. 
1046 


AAAAAl. 
000006 


FC= 06 




; FRAME COUNT 


1 Ay 7 

104f 


AAAA1 A 
000010 


CS2= 10 




; CONTROL STATUS #2 


i Ay ft 
1048 


AAAA1 ^ 
0000 1^ 


DS- 12 




IDRIVE STATUS 


i Ay Q 
1049 


AAAAi y 
00U014 


ER= 14 




;ERROR REG »1 


1030 


AAAAi X 
UUOO 10 


AS- 16 




; ATTENTION SUHMARY 


1 AC1 

1051 


AAAA? 9 
0000^^ 


DB- 22 




;DATA BUFFER REG 




AAAATZ 
OOOO^H 


nR= 24 




iHAINTENANCE REG 


^ AC 1 

1053 


AAAA^X 
OOOOfO 


DTs 26 




;DRIVE TYPE REG 




AAAATA 


SN= 30 




; SERIAL NUMBER REGISTER 


1055 


000032 


TC= 32 




;TAPE CONTROL REG 


1056 










1057 




.SBTTL TN02/TU45 REGISTER BITS 




1058 




:RHCS1-CS1(R5) 






1059 


000001 


G0= 1 






1060 


000000 


NOP= 0 
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i AX. i 

lOol 


AA AAA') 

000002 


RWDUr f - 


5 
C 


1062 


AAAA AX 

000006 


DLJA — 

RWD- 


X 
0 


1 063 


AAAA1 A 
00001 0 


ADVn D — 

UKTLLK- 


1 A 
1 U 


1 AX/ 


AAAA^X 

000026 




OA 

CO 


i AXC 


AAAAO/ 


CDACC— 

cRAac- 


C*l 


i Axx 
lUOO 


nnnnxn 
0000 jU 


cDfcun— 


3U 


1 AX 7 

1 0or 


AAAA10 

00003c 


CDTDCU— 


»5 

JC 


1 Uoo 


AAnnc A 
0000)0 




^n 


1 AXO 


AAAACiL 

00007O 


uruirD- 


30 


lOf 0 


AAAAXn 

OOOOoO 


uc un— 
• r mu- 


AA 


1 Ur 1 


AAAA7A 

UUUUf u 


DAFUn- 
KUr WU- 


70 
f u 


1 mo 


UUUUf 0 


PADFU- 


7A 
f O 


1 Of J 


AAAI AA 

UUU 1 uu 


t C- 
IC- 


inn 
1 uu 


1 f\7L 


UUUcUU 


DAV- 


?nn 

cUU 




UUUmUU 


A 1 0- 


Ann 

lUU 


1 Uf 0 


nm Ann 
uu 1 UUU 


417- 
M 1 f — 


innn 

1 UUU 


1 n77 


nnonnn 


r OCL- 


7nnn 

cUUU 


1 rt7B 
1 Uf o 


AAA AAA 

UU'iUUU 




Annn 

••UUU 


1 Uf 7 


nonnnn 

UcUUUU 


■ rPF- 


7nnnn 

C vUUU 


1 uou 


U*tUUUU 


TBF- 


Annnn 

•lUUvU 


1 us 1 


1 nnnnn 

1 UUUUU 




1 nnnnn 

1 UUUUU 


1 Vac 




. lint 3c 1.9c \ njf 




IUOj 


nnnnnn 


nun- 


A 
U 


1 Uo<t 


nnnnm 

UUUUU 1 


nul = 


1 
1 


1 UOj 


nnnnno 
UUUUUe 


nu9- 


c 


1 AAA 

1 uoo 


nnnnnx 




* 

J 


I UOf 






L 
•1 


1 uoo 


onnnns 

UUUUUj 




c 


1 U07 


UUUUUO 


nuA- 


X 

o 


1 nan 

1 UtU 


vvvvvf 


nu7= 


7 


1 OQI 

I Ut I 




DA t- 


in 

1 u 


1 no? 

1 Utc 




PAT- 

r A 1 — 


9n 

cu 


1 Ut J 






An 

lU 


1 UT't 


UUU 1 uu 


tB- 


inn 
1 uu 


ina^ 

1 Ut J 


UUUcUU 


no- 

Ufl- 


9nn 

cUU 


1 noA 

1 UtO 






AOO 

■Iww 


inQ7 

1 Uti 


nni nnn 

uu I UUU 


Hyps 


innn 

1 UUU 


moil 

1 UtO 


nnynnn 
UUcUUU 


r UC — 


9nnn 

cuuu 


1 noQ 

1 Utt 


AAA AAA 




Annn 


1 inn 

1 lUU 


U ff UvUv 


liFDr 


innnn 

1 uvuv 


iini 

1 1 U 1 


()()()() 


IIPF- 

Ur C — 


9nnnn 

CUwUw 


1 1 UC 


AX AAA A 


UTF- 


Annnn 


iin^ 


1 nnnnn 

1 UUUUU 


ni Tr 

UK. 1 


1 nnnnn 

1 UUUUU 


1 1 U*t 








iins 


nnnnni 


3LA- 


1 

1 


11 nA 

1 1 uo 


UUUUUc 


DU 1 — 


c 


1107 


UUUUU** 


TNITs 


A 


1 inn 

1 1 wO 


nnnnin 

UUUU 1 u 




in 

1 u 


1 mo 

1 IUt 


UUUUcU 




9n 

cU 


1110 


000040 


r t J • 


40 


1111 


000100 


ssc= 


100 


1112 


000200 


ORY = 


200 


1113 


000400 


OPR= 


400 


1114 


002000 


EOT= 


2000 


1115 


004000 


URL= 


4000 


1116 


010000 


H0L= 


10000 
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1117 


020000 


P1P= 


20000 


1118 


040000 


ERR= 


40000 


1119 


100000 


ATAs 


1 00000 


1120 




;RHER-ER(R5) 




1121 


000001 


ILF = 


1 


1122 


000002 


ILR= 


2 


1123 


000004 


RRRs 


4 


1124 








1125 


000020 


FHT = 


20 


1126 


000100 


INCVAE= 


100 


1127 


000200 


PEFLRCs 


200 


1128 


000400 


NSGs 


400 


1129 


001000 


FCE= 


4 AAA 

1000 


1130 


002000 


CSITB= 


^ A AA 

2000 


1131 


0^ A J MAM 

004000 


NEF = 


J AAA 

4000 


1132 


010000 


OTE = 


4 AAAA 

10000 


1133 


020000 


0P1 = 


^ AA AA 

20000 


1134 


040000 


UNS- 


M AAAA 

40000 


1135 








1136 




;RHBR-nll\R5J 




1137 


000100 


0SC» 


100 


1138 








1139 




.•RHDT-DT(R5) 




1140 


002000 


SPRs 


2000 


1141 


010000 


CH7s 


10000 


1142 


040000 


TAP= 


40000 



1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 



000000 
000002 
000004 



000300 
000320 
000000 
000400 
001000 
002000 
100000 



104400 
104000 
000004 



005340 
177400 
1 77600 

000003 
00001 1 
000012 
000015 
00001 7 
000025 
000000 
000000 
000000 
000006 



;RHTC-TC(R5) 

norhii- 300 

C0«11= 320 
BP I 200- 0 
BPI556- 000400 
BP I 800= 001000 
PE1600- 002000 
ACCL= 100000 

.INSTRUCTION EQUATES 
HLTs TRAP 
SCOPE= EHT 
TYPE= lOT 

.-niSCELLANEOUS EQUATES 
OUTBUF=INIT 
FRHCNTs -256. 
yRDCNT: .128. 

.•ASCII EQUATES 

CNTRLC= 3 
HT= 11 
LF= 12 
CR= 15 
CNTRLO= 17 
CNTRLU: 25 
.=0 
0 
0 

.♦2 



OTPUT BUFFER START AT BEG OF PROGRAM 
FRAME COUNT 
WORD COUNT 

ASCII CODE FOR CONTROL C ( C) 
ASCII CODE FOR HORIZONTAL TAB 
ASCII CODE FOR LINE FEED 
ASCII CODE FOR CARRIAGE RETURN 
ASCII CODE FOR CONTROL 0 ( 0) 
ASCII CODE FOR CONTROL U ( U) 
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1173 


000006 


000000 


HALT 


1174 


000010 


000012 


.♦2 


1175 


000012 


000000 


HALT 


1176 


000014 


000016 


.♦2 


1177 


000016 


000000 


HALT 


1178 


000020 


000022 


.♦2 


1179 


000022 


000000 


HALT 


1180 


000024 


000026 


.♦2 


1181 


000026 


000000 


HALT 


1182 


000030 


000032 


.♦2 


1183 


000032 


000000 


HALT 


1184 


000034 


000036 


.♦2 


1185 


000036 


000000 


HALT 


1186 


000040 


000042 


.♦2 


1187 


000042 


000000 


HALT 


1188 


000044 


000046 


.♦2 


1189 


000046 


000000 


HALT 


1190 


000050 


000052 


.♦2 


1191 


000052 


000000 


HALT 


1192 


000054 


000056 


.♦2 


1193 


000056 


000000 


HALT 


1194 


000060 


000062 


.♦2 


1195 


000062 


000000 


HALT 


1196 


000064 


000066 


.♦2 


1197 


000066 


000000 


HALT 


1198 


000070 


000072 


.♦2 


1199 


000072 


000000 


HALT 


1200 


000074 


000076 


.♦2 


1201 


000076 


000000 


HALT 


1202 


000100 


000102 


.♦2 


1203 


000102 


000000 


HALT 


1204 


000104 


000106 


.♦2 


1205 


000106 


000000 


HALT 


1206 


000110 


000112 


.♦2 


1207 


000112 


000000 


HALT 


1208 


000114 


000116 


.♦2 


1209 


000116 


000000 


HALT 


1210 


000120 


0001 22 


.♦2 


1211 


000122 


000000 


HALT 


1212 


000124 


000126 


.♦2 


1213 


000126 


000000 


HALT 


1214 


000130 


000132 


.♦2 


1215 


000132 


000000 


HALT 


1216 


000134 


000136 


.♦2 


1217 


000136 


000000 


HALT 


1218 


000140 


000142 


.♦2 


1219 


000142 


000000 


HALT 


1220 


000144 


000146 


.♦2 


1221 


000146 


000000 


HALT 


1222 


AAA 4 f A 

000150 


AAA 4 f ^ 

000152 


.♦2 


1223 


000152 


000000 


HALT 


1224 


000154 


000156 


.♦2 


1225 


000156 


000000 


HALT 


1226 


000160 


000162 


.♦2 


1227 


000162 


000000 


HALT 


1228 


000164 


000166 


.♦2 
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C7TUI A 


P11 07-JUN-78 17:07 


Tn02/TU45 REGISTER BITS 




I CC 7 


UUU 1 00 


nnnnnrt 


HALT 








UUU 1 r u 




«9 






1?31 

1 C -J 1 


UUU 1 I c 


nnnnnn 


HALT 






1??? 


vUv 1 1 S 


0001 7A 

UUU 1 r 0 


t9 








UUU 1 ' o 


uuuuuu 


HALT 








UUUc wU 


000909 

UUUcUc 


f9 








UUUcUc 


000000 
uuuuuu 


HALT 








UUUcUH 


00090A 

UUUCUO 


♦ 9 








000 90A 

UUUcUO 


000000 
uuuuuu 


HALT 






1238 


000710 


0009 1 9 
UUUc 1 c 


♦ 2 






1239 


vvvc 1 C 


000000 

UUUUvv 


HALT 






1240 


000914 


000916 

UUUc 1 u 


.♦2 






1241 


OOO9I A 
UUUc 1 0 


000000 
uuuuuu 


HALT 






1242 


000990 

UUvccv 


000999 

vUvC cc 


• .♦2 






1243 


000999 

vvvCCC 


000000 

vvvvvU 


HALT 






1244 


000994 


000996 


♦ 9 






1245 


000996 


000000 


HALT 






1246 


000930 


0009 TP 


♦ 9 






1247 


000939 


000000 

wwvvww 


HALT 






1248 


000234 


000236 


.♦2 






1249 


000936 


000000 

Vwwwww 


HALT 






1250 




000949 


.♦2 






1251 


000949 


000000 

www V W 


HALT 






1252 


000944 


wwwC*f 0 


.♦2 






1253 


000946 


000000 

V wwwww 


HALT 






1254 


000950 


000259 

wwwC 


.♦2 






1255 


000952 


000000 

wwwwww 


HALT 






1256 


000954 


000956 

VWC JV 


♦9 






1257 


000956 


000000 

WWWV w 


HALT 






1258 


000960 


000962 


.♦2 






1259 


000969 


000000 

wwwwww 


HALT 






1260 


000964 


000966 

wwwCUU 


♦ 9 






1261 


000966 


000000 

wwwww V 


HALT 






1262 


000970 


000272 

wwwC ' C 


«9 






1263 


000979 


000000 

wwwwww 


HALT 






1264 


000274 


000276 

WWW c » w 


«9 






1265* 


000276 


000000 

wwwwww 


HALT 






1266 


000300 


000302 

WWW ^ w c 


♦ 9 






1267 

1 fcW f 


000302 


000000 

w wwwww 


HALT 






1268 


000304 


000306 

www JWW 


.♦2 






1269 


000306 


000000 

wwwwww 


HALT 






1270 


00031 0 


000312 

WWW J 1 c 


♦ 9 






1271 


000312 


000000 

wwwwww 


HALT 






1272 


000314 


000316 


♦9 






1273 


000316 

wVV J 1 V 


000000 

w w W www 


HALT 






1274 


000320 


000322 

www JCC 


♦ 9 






1275 


000322 


000000 

wwwwww 


HALT 






1276 


000324 


000326 

www^C w 


, *2 






1277 


000326 


000000 

wwWww w 


HALT 






1278 


000330 


000332 


«9 






1279 


000332 


COOOOO 


HALT 






1280 


000^^4 

UUU J 


000^^6 

UUU J JO 


«9 






1281 


000336 


000000 


HAL T 

n t 1 






1282 


000340 


000342 


.♦2 






1283 


000342 


000000 


HALT 






1 cot 


000344 


000346 


^9 
• ^c 















G 


3 
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1 CO J 


UUUjhO 


t\nf\t\f\f\ 
UUUUUU 


HALT 


























nnnnnn 

UUUUUU 


HALT 










UUUj5h 




. + 2 








1 COT 




f\(\(\(\(\f\ 

UUUUUU 


HALT 








1 C TV 


UUvjOU 


UUU jOc 


.♦2 












(\(\(\f\(\f\ 

UUUUUU 


HALT 








1 C 7C 




UUU jOO 










1 C 


UUU300 




HALT 








1 CTH 




UUU^r C 










1 Crj 




UUUUUU 


HALT 








1 C 7U 


000574 


000576 
UUU J I u 


«2 








It'' 


yjwjfo 


UUUUUU 


HALT 








1 C 70 














1 C ~T 




000000 


HALT 








1500 




000406 


.♦2 










000<.06 


000000 

UUUUUU 


HALT 








1 50? 


000410 


00041 2 

UUUt 1 C 


♦ 2 








1505 


000^1 ? 


000000 
UUUUUU 


HALT 








1504 


0004 1 4 


000416 

UUUH 1 O 










150S 


00041 A 


000000 


HALT 








1506 


000^20 


000422 

UUUHcc 


♦2 








1 507 


000472 


000000 

UUUUUU 


HALT 








1508 


000474 


000426 


♦2 








1509 


0004 2 A 


000000 


HALT 








1510 


000450 


000452 

Uww** Jc 










1511 


000452 


000000 

UUUUUU 


HALT 








1512 


000454 


000456 


t2 








1515 


000456 


000000 

vvvVUU 


HALT 








1 514 


000440 


000442 


♦ 2 








1515 


000442 


000000 

Uvwwvw 


HALT 








1516 


000444 


000446 










1517 


000446 


000000 

UUUUUU 


HALT 








1518 


0004 SO 


000452 

UUU"t JC 


♦2 








1519 


000452 


000000 

UUUUUU 


HALT 










000454 


000456 

UUUH^O 


.♦2 








1521 


000456 


000000 


HALT 








1322 


000460 


000462 

UUv*ff uc 


♦2 








1525 


000462 


000000 

UUUUUU 


HALT 








1524 


000464 


000466 

UUU*VOw 


♦ 2 








152S 


000466 


000000 


HAL T 








1526 


000470 


000472 
uuu*t » c 


4.2 








1527 


000472 


000000 

UUUUUU 


HALT 








1528 


000474 


000476 


f2 








1329 


000476 


000000 


HALT 








1550 


000500 


000502 


♦ 2 








1551 


000502 


000000 

UUUUUU 


HALT 








1552 


000504 


000506 

UUUUUU 


♦ 2 








1533 

1 J J J 


000506 


000000 


HALT 








1534 


000510 


000512 


♦ 2 








1335 

1 J J J 


000512 


000000 


HALT 








1556 


000514 


000516 
UUU7 1 o 


f 2 








1537 


000516 


000000 


HALT 








1338 


000520 


000522 


.♦2 








1339 


000522 


000000 


HALT 








1 540 


000524 


000526 











H 3 

C2TULA0 TH02 DRIVE FUNCTION TIMER MACYll 30(10A6) 13-JUN-78 13:54 PAGE 33 

C2TULA.P11 07-JUN-78 17:07 TH02/TU45 REGISTER BITS SEQ 0033 



1341 


000526 


000000 


HALT 


1342 


000530 


000532 


.♦2 


1343 


000532 


000000 


HALT 


1344 


000534 


000536 


.♦2 


1345 


000536 


000000 


HALT 


1346 


000540 


000542 


.♦2 


1347 


000542 


000000 


HALT 


1348 


000544 


000546 


.♦2 


1349 


000546 


000000 


HALT 


1350 


000550 


000552 


.♦2 


1351 


000552 


000000 


HALT 


1352 


000554 


000556 


.♦2 


1353 


000556 


000000 


HALT 


1354 


000560 


000562 


.♦2 


1355 


000562 


000000 


HALT 


1356 


000564 


000566 


.♦2 


1357 


000566 


000000 


HALT 


1358 


000570 


000572 


.♦2 


1359 


000572 


000000 


HALT 


1360 


000574 


000576 


.♦2 


1361 


000576 


000000 


HALT 


1362 


000600 


000602 


.♦2 


1363 


000602 


A A A A M M 

000000 


HALT 


1364 


000604 


000606 


.♦2 


1365 


000606 


000000 


HALT 


1366 


000610 


00061 2 


.♦2 


1367 


000612 


000000 


HALT 


1368 


000614 


00061 6 


.♦2 


1369 


000616 


000000 


HALT 


1370 


000620 


000622 


.♦2 


1371 


000622 


A A A A A A 

000000 


HALT 


1372 


000624 


000626 


.♦2 


1373 


000626 


M A A A A A 

000000 


HALT 


1374 


000630 


000632 


.♦2 


1375 


000632 


M A M A M M 

000000 


HALT 


1376 


000634 


000636 


, A 

.♦2 


1377 


000636 


000000 


HALT 


1378 


000640 


000642 


.♦2 


1379 


000642 


M A A A A A 

000000 


HALT 


1380 


000644 


000646 


.♦2 


1381 


000646 


AAAA nA 

000000 


HALT 


1382 


000650 


000652 


.♦2 


1383 


000652 


A A A A A A 

000000 


HALT 


1384 


000654 


000656 


.♦2 


1385 


000656 


A A A A A A 

000000 


HALT 


1386 


000660 


A A A ^ £. 

000662 


.♦2 


1387 


000662 


A A A A A A 

000000 


HALT 


1388 


000664 


000666 


.♦2 


1389 


000666 


A A A A A A 

000000 


HALT 


1590 


0006/0 


AAAZ 7 0 

0006/2 


. +2 


1391 


000672 


000000 


HALT 


1392 


000674 


000676 


.♦2 


1393 


000676 


000000 


HALT 


1394 


000700 


000702 


.♦2 


1395 


000702 


000000 


HALT 


1396 


000704 


000706 


.♦2 
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SEQ 0034 



1397 


000706 


000000 




HALT 




1398 


000710 


000712 




.♦2 




1399 


000712 


000000 




HALT 




UOO 


000714 


000716 




.♦2 




U01 


000716 


000000 




HALT 




U02 


000720 


000722 




.♦2 




U03 


000722 


000000 




HALT 




UOA 


000724 


000726 




.♦2 




U05 


000726 


000000 




HALT 




U06 


000730 


000732 




.♦2 




U07 


000732 


000000 




HALT 




U08 


000734 


000736 




.♦2 




U09 


000736 


000000 




HALT 




U10 


000740 


000742 




.♦2 




U11 


000742 


000000 




HALT 




U12 


000744 


000746 




.♦2 




H13 


000746 


000000 




HALT 




HU 


000750 


000752 




.♦2 




1415 


000752 


000000 




HALT 




1416 


000754 


000756 




.♦2 




1417 


000756 


000000 




HALT 




1418 


000760 


000762 




.♦2 




1419 


000762 


000000 




HALT 




1420 






.SETUP 


TRAP VECTORS 


1421 




000014 




.=TBITVEC 


1422 


000014 


000016 




.WORD 


.♦2 


1423 


000016 


000000 




.WORD 


HALT 


1424 


000020 


001776 




.WORD 


.TYPE 


1425 


000022 


000000 




.WORD 


0 


4<26 


000024 


000026 




.WORD 


PFVEC»2 


1427 


000026 


000000 




.WORD 


HALT 


1428 


000030 


003552 




.WORD 


.SCOPE 


1429 


000032 


000340 




.WORD 


340 


1430 


000034 


003304 




.WORD 


.HLT 


1431 


000036 


000340 




.WORD 


340 


1432 




000060 




.=TICVEC 




1433 


000060 


003240 




.WORD 


TKISR 


1434 


000062 


000340 




.WORD 


340 


1435 




000200 




.=200 




1436 


000200 


000137 005340 




JHP 


a#iNiT 


1437 












1438 




000500 




. = 500 




1439 




000600 


STKPTRs 


600 




1440 












1441 




001000 




.=1000 




1442 












1443 






.PROGRAM TAGS 




1444 












1445 


001000 


177570 


SUR: 


.WORD 


HSUR 


1446 


AAA A A 

001002 


A A A A n A 

000000 


SCPAOR: 


.WORD 


0 


1447 


001004 


000 


DRVNUR: 


.BYTE 


0 


1448 


001005 


000 


SLVNUM: 


.BYTE 


0 


1449 


001006 


000000 


SLVPTR: 


.WORD 


0 


1450 


001010 


172440 


TK8ASE: 


.WORD 


THCS1 


1451 


001012 


000000 


ATIHE: 


.WORD 


0 


1452 


001014 


000020 


ATIHT8L 


:.BLKU 


16. 



SET 'T* TRAP TO TIHER ROUTINE 

PRIORITY LEVEL 7 

SET lOT TRAP TO .TYPE ROUTINE 

PRIOTITY LEVEL 0 

POWER FAIL TRAP TO HALT 

AT PFVEC+2 

SET E«T TRAP TO .SCOPE ROUTINE 
PRIORITY LEVEL 7 
SET TRAP TRAP TO .HLT ROUTINE 
PRIORITY LEVEL 7 



:G0 TO START OF PROGRAM 



.•STACK 



;TH02 DRIVE UNDER TEST 

:TU45 SLAVE UNDER TEST 

: POINTER TO SLAVE TABLE (SLVTBL) BELOW 

.BASE ADDRESS OP Tn02/TU4S REGISTERS 

;CONTAINS 'TICK' COUNT 
;EACH ENTRY CONTAINS TIHE FOR FUNCTION 



t 



CZTULAO Tn02 DRIVE FUNCTION TIMER 
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SEQ 0035 



U53 














ENTRIES ARE HADE BY 'SCOPE' ROUTINE 


USA 


001054 


000020 




GAPTBL 


.BLKW 


16. 


TIMES RECORDED BY 'GAP CONSISTANCY' TEST 


H55 


001114 


000000 




DELTIH 


.WORD 


0 


VARIBLE DELAY 


US6 


001116 


000000 




OCTALO 


.WORD 


0 




H57 


001120 


000 




GAP: 


.BYTE 


0 


CONTAINS GAP » (USED FOR TST 021) 


H58 


001121 


000 




ITCNT: 


.BYTE 


0 


ITERATION COUNT 


H59 


001122 


000 




TSTNUH 


.BYTE 


0 


TEST f 


H60 


001123 


000 




ERFLG: 


.BYTE 


0 


ERROR FLAG 


H61 


001124 


000 




PRGFLG 


.BYTE 


0 


PROGRAM FLAG 


H62 


001125 


000 




UNTFND 


.BYTE 


0 


■UNIT FOUND INDICATOR 


U63 


001126 


000 




TYPFLG 


• BYTE 


0 




H6A 


001127 


000 




NRZFLG 


.BYTE 


0 .-INDICATES IF DRIVE IS NRZ ONLY. 


U6S 


001130 


000 




ASFL6: 


.BYTE 


0 ;1/0 = YES/NO. 


H66 




001132 






.EVEN 






U67 


001132 


030460 




DIGTAB 


"01 






U68 


001134 


031462 






"23 






H69 


001136 


032464 






"45 






U70 


001140 


033466 






"67 
"89 






U71 


001142 


034470 










1472 


001144 


000006 




0DIGITS:.BLKB 


6 


:RESERVE SPACE ^OR CONVERTED DIGITS 


U73 


001152 


000 






.BYTE 


0 


.•TERMINATOR 


U7A 




001154 






.EVEN 






1475 


001154 


000010 




DRVTBL 


: .BLKB 


8. 


;A 0/-1 = DRIVE NOT TO BE/TO BE TESTED 


1476 


001164 


000100 




SLVTBL 


: .BLKB 


64. 


;A 0/-1 - SLAVE NOT TO BE/TO BE TESTED 


1477 


001264 


000110 




INBUF: 


.BLKB 


72. 


.•TELETYPE INPUT BUFFER 


1478 


001374 


005015 


000 


CRLF: 


.ASCIZ 


<CR><LF> 


:MISCELLANEOUS ASCII CHARACTERS 


1479 


001377 


134 


000 


BKSLSH: .ASCIZ 




1480 


001401 


060 


000 


ECHO: 


.ASCIZ 


•0' 




1481 


001403 


007 


000 


BELL: 


.ASCIZ 


<7> 




1482 


001405 


055 


000 


DASH: 


.ASCIZ 






1483 


001407 


040 




SPACE2 


: .ASCII 


I • 




1484 


001410 


000040 




SPACE: 


.ASCIZ 


1 f 




148S 


001412 


004476 


000 


ANGTAB 


: .ASCIZ 


'>'<HT> 




1486 




001416 






.EVEN 







CZTULAO TH02 DRIVE FUNCTION TIMER 

CZTULA.P^l 07-JUN-78 17:07 

U87 
U88 
1489 
1490 
1491 
1492 
1493 

149^ 001416 000000 000000 

1495 001422 017500 015220 

1496 001426 001046 0007C2 

1497 001432 000702 000550 

1498 001436 001130 000714 

1499 001442 001666 001426 

1500 001446 000264 000226 

1501 001452 000252 000202 

1502 001456 001130 000714 

1503 001462 000264 000226 

1504 001466 000346 000276 

1505 001472 001130 000714 

1506 001476 001440 001130 

1507 001502 001440 001130 

1508 001506 001440 001130 

1509 001512 001440 001130 

1510 001516 001440 001130 

1511 001522 001440 001250 

1512 001526 000000 000000 

1513 001532 002660 002533 

1514 001536 002660 002533 

1515 001542 002660 002533 

1516 001546 002734 002424 

1517 001552 013724 012574 

1518 001556 014400 013250 

1519 001562 002544 002424 

1520 001566 002544 002424 
1521 

1522 
1523 
1524 
1525 
1526 
1527 
1528 
1529 

1530 001572 00US2 001274 

1531 001576 001564 00U06 

1532 001602 001556 001376 

1533 001606 001452 00127^ 

1534 001612 001426 001250 

1535 001616 001426 001250 

1536 001622 001426 001250 

1537 001626 001426 001250 

1538 001632 001426 001250 

1539 001636 001426 001250 

1540 001642 001426 001250 

1541 001646 001426 001250 

1542 001652 001426 001250 
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SEQ 0056 



.SBTTL TIME SPECIFICATION TABLE 
THE BELOy TABLE CONTAINS THE SPECIFIED FUNCTION TIMES IN TENS OF 
MICROCESONDS. NOTE THAT WHEN TINES ARE TYPED THAT THEY ARE TYPED IN 
MICROSECONDS (BY APPENDING A 0). 
FORMAT IS 

:TIME IN MS FUNCTION 



.yORD MAX.MIN 

STlMTBL:.yORD 0.0 

.yORD 8000., 6800. 

.yORD 00550.^00450. 

.WORD 00450., 00360. 

.yORD 00600., 00460. 

.yORD 0950., 0790. 

.yORD 001 80., 001 50. 

.yORD 00170. ,00130. 

.yORD 00600., 00460. 

.yORD 001 80., 001 50. 

.yORD 00230., 00190. 

.WORD 00600., 00460. 

.WORD 00800., 00600. 

.yORD 00800., 00600. 

.yORD 00800., 00600. 

.yORD 00800., 00600. 

.yORD 00800. ,00600. 

.yORD 00800., 00680. 

.yORD 0,0 

.yORD 01456., 01371. 

.yORD 01 456., 01 371. 

.yORD 01456., 01371. 

.yORD 01 500., 01 300. 

.yORD 061 00., 05500. 

.yORD 06400.. 05800. 

.yORD 01 380., 01 300. 

.WORD 01 380., 01 300. 



.SPARE 

.-80.0-68.0 

; 5.50-4.50 

; 4. 50-3. 90 

;6.0-4.60 

;9. 5-7.9 

.-1.80-1.50 

.-1.70-1.30 

.-6.00-4.60 

,1.80-1.50 

.-2.30-1.90 

; 6. 00-4. 60 

: 8.00-6.00 

;8. 00-6. 00 

: 8.00-6.00 

,-8.00-6.00 

.-8.00-6.00 

; 8.00-6.80 

,-0.0-0.0 

;14. 56-13. 71 

.-14.56-13.71 

.14.56-13.71 

.-15.00-13.00 

.-61.00-55.00 

.-64.00-58.00 

,-13.80-13.00 

; 13.80-13.00 



yRITE FROM BOT 
yRITE START 
yRITE SHUTDOyN 
yRITE STLDOVN 
READ FROM BOT 
READ START 
READ SHUTDOyN 
READ SETTLEDOyN 
RD REV START 
RD REV SHTDyN 
RD REV STLDyN 
TRN RMD DLY F-R 
TRN RND DLY R-F 
GAP SIZE STOP 
GAP SIZE STRT 
GAP SIZE INTER 
GAP CONSISANCY 
DUWIY 

DAT TIME 200BPI 
DAT TIME 5568PI 
DAT TIME 800BPI 
DAT TIME 1600PE 
ERASE 

yRT FILE NARK 
READ 1" TAPE 
RD REV 1" TAPE 



TEST » 



TSTOOl 

TST002 

TST003 

TST004 

TST005 

TST006 

TST007 

TSTOlO 

TST011 

TST012 

TST013 

TST014 

TST015 

TST016 

TST017 

TST020 

TST021 

TST022 

TST023 

TST024 

TST025 

TST026 

TST027 

TST030 

TST031 

TST032 



.-NOTE: TEST 31 AND 32 REQUIRE PRERECORDED 800BPI SKEW TAPE. 
.SBTTL GAP TIHE SPECIFICATION TABLE 
THIS TABLE CONTAINS THE GAP SIZES (IN TENS OF NICROSECONDS) FOR EACH 
OF THE 16. GAPS RECORDED BY THE GAP CONSISTANCY TEST (TST021). 
NOTE: GAP f'S ARE IN OCTAL. 

;TIME IN MS(IO) GAP # DELAY IN HS(IO) 



.yORD 


MAX,NIN(10) 


GTIMTBL:.yORD 


00810., 00700. 


.yoRD 


00884., 00774. 


.yoRD 


00878., 00766. 


.yORD 


00810., 00700. 


.yORD 


00790., 00680. 


.yORD 


00790., 00680. 


.yORD 


00790., 00680. 


.yORD 


00790., 00680. 


.yoRO 


00790., 00680. 


.yORD 


00790., 00680. 


.yoRD 


00790., 00680. 


.yORD 


00790.. 00680. 


.yoRD 


00790., 00680. 



:8.10 
;8.84 
;8.78 
;8.10 
;7.90 
.-7.90 
;7.90 
;7.90 
,-7.90 
;7.90 
.-7.90 
;7.90 
;7.90 



•7.00 
•7.74 
•7.66 
•7.00 
•6.80 
•6.80 
•6.80 
•6.80 
•6.80 
•6.80 
-6.80 
•6.80 
-6.80 



6AP-0 

GAP-1 

GAP-2 

6AP-3 

GAP-4 

GAP-5 

6AP-6 

GAP-7 

GAP- 10 

GAP-1 1 

6AP-12 

GAP-1 3 

GAP- 14 



0 MS 

I. 0 MS 
2.0 MS 
3.0 MS 
4.0 MS 
5.0 MS 
6.0 MS 
7.0 NS 
8.0 NS 
9.0 NS 
10.0 NS 

II. 0 NS 
12.0 NS 



SEO 0037 

GAP-15 13.1 HS 
6AP-16 U,1 HS 
GAP-17 15.1 HS 



CZTULAO TH02 DRIVE FUNCTION TIMER 
CZTULA.P11 07-JUN-78 17:07 

15A3 001656 00U26 001250 
15AA 001662 00U26 001250 
15A5 001666 001 A26 001250 



L 3 

MACY11 30(1046) 13-JUN-78 11:54 PAGE 37 
GAP TIME SPECIFICATION TABLE 

.WORD 00790., 00680. ; 7.90-6.80 
.WORD 00790., 00680. ; 7.90-6.80 
.WORD 00790., 00680. ; 7.90-6.80 



CZiULAO Tn02 DRIVE FUNCTION TIMER 
CZTUIA.PII 07-JUN-78 17:07 



MACY11 30(10A6) 13-JUN 
TEST HEADER POINTERS 



n 

•78 



3 

13:5A 



PAGE 38 



SEQ 0038 



1546 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1538 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

1574 

1575 

1576 

1577 

1578 

1579 

1580 

1581 

1582 

1583 

1584 

1585 

1586 

1587 

1588 

1589 

1590 

1591 

1592 

1593 

1594 

1595 

1596 

1597 

1598 

1599 

1600 

1601 



C01672 
001674 
001676 
001700 
00 702 
001704 
00 706 
001710 
001712 
001714 
001716 
001720 
001722 
001724 
001726 
001730 
001732 
001734 
001736 
001740 
001742 
001744 
001746 
001750 
001752 
001754 
001756 



001760 
001761 
001762 

001763 
001764 
001766 
001770 
001771 
001772 



001776 
002000 
002004 
002012 



000000 
014215 
014237 
014257 
014301 
014325 
014347 
014366 
014410 
014433 
014455 
014502 
014531 
014562 
014613 
014641 
014670 
014720 
000000 
014743 
014767 
015013 
015037 
015064 
015106 
015131 
015153 



00001 1 
000 
002 
000 

000 
177564 
177566 
000 
000 
005015 
001776 



.SBTTL TEST HEADER POINTERS 
;THE BELOW TABLE CONTAINS POINTERS TO EACH TEST'S DESCRIPTOR 



NAHPTR: .UORD 


0 


.WORD 


A.T001 


.WORD 


A.T002 


.WORD 


A.T003 


.WORD 


A.T004 


.UORD 


A.T005 


.UORD 


A.T006 


.UORD 


A.T007 


.UORD 


A.T010 


.UORD 


A.T011 


.UORD 


A.T012 


.UORD 


A.T013 


.UORD 


A.T014 


.UORD 


A.T015 


.UORD 


A.T016 


.UORD 


A.T017 


.UORD 


A.T020 


.UORD 


A.T021 


.UORD 


0 


.UORD 


A.T023 


.UORD 


A.T024 


.UORD 


A.T025 


.UORD 


A.T026 


.UORD 


A.T027 


.UORD 


A.T030 


.UORD 


A.T031 


.UORD 


A.T032 



.-DUHHY TEST 



.SBTTL PROGRAM SUBROUTINES 

.SBTTL TYPE SUBROUTINE 

; .'ROUTINE TO TYPE ASCII MESSAGE. MESSAGE MUST TERMINATE UITH A 0 BYTE. 
::THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
;;CALL: TYPE ;;A TRAP TYPE INSTRUCTION 

MESADR :;MESADR IS FIRST ADDRESS OF ASCIZ STRING 



;;TAGS USED BY THE TYPE ROUTIKt 

$HT=11 
SNULL: .BYTE 0 
SFILL: .BYTE 2 
ITPFLG: .BYTE 0 



000 



$TICFL6: .BYTE 
$TPS: .UORD 
STPB: .UORD 
$CHARCNT:.BYTE 
$CNTRL0:.6YTE 
SCRLF 



0 

177564 
177566 
0 
0 

.ASCIZ <15><12> 
.EVEN 



010046 

017600 000002 

062766 000002 

105067 177753 



000002 



. TYPE : MOV 
MOV 
ADD 
CLRB 



RO.-(SP) 
a2(SP),R0 
#2.2(SP) 
SCNTRLO 



BE LOU 

HORIZONTAL TAB 
CONTAINS NULL CHARACTER 
CONTAINS # OF FILLER CHARACTERS 
CONTAINS TELEPRINTER AVAILABLE FLAG 
0/377 = AVAIL/NOT AVAIL 
CONTAINS KEYBOARD AVAILABLE FLAG 
ADDRESS OF TLEPRINTER STATUS REGISTER 
ADDRESS OF TELEPRINTER DATA BUFFER 
CONTAINS « OF CHARS TYPED 
CONTAINS CONTROL 0 CHAR (IF TYPED) 



SAVE RO 

GET MESSAGE ADDRESS 
ADJUST RETURN PC 



CZTULAO Tn02 DRIVE FUNCTION TIMER 
CZTUU.Pll 07-JUN-78 17:07 



1602 


002016 


105767 


177747 


1603 


002022 


00U03 




1604 


002024 


000004 


001772 


1605 


002030 


000403 




1606 


002032 


112046 




1607 


002034 


001003 




1608 


002036 


u05726 




1609 


002040 


012600 




1610 


002042 


000002 




1611 








1612 


002044 


122716 


000011 


1613 


002050 


001445 




16U 


002052 


004767 


000026 


1615 


002056 


122726 


000012 


1616 


002062 


001355 




1617 


002064 


016746 


177670 


1618 








1619 








1620 


002070 


105366 


000001 


1621 


002074 


002770 




1622 


002076 


004767 


000002 


1623 


002102 


000772 




1624 








1625 


002104 


105777 


177654 


1626 


002110 


100375 




1627 


002112 


122737 


000017 


1628 


002120 


001403 




1629 


002122 


116677 


000002 


1630 


002130 


122766 


000015 


1631 


002136 


001003 




1632 


002140 


105067 


177624 


1633 


002144 


000406 




1634 


002146 


122766 


000012 


1635 


002154 


002002 




1636 


002156 


105267 


177606 


1637 


002162 


000207 




1638 








1639 








1640 


002164 


112716 


000040 


1641 


002170 


004767 


177710 


1642 


002174 


132767 


000007 


1643 


002202 


001372 




1644 


002204 


105726 




1645 


002206 


000703 




1646 








1647 








1648 








1649 


002210 


010546 




1650 


002212 


010446 




1651 


002214 


010346 




1652 


002216 


010246 




1653 


002220 


010146 




1654 


002222 


010046 




1655 


002224 


016646 


oooou 


1656 


002230 


000207 




1657 









N 

HACrll 30(10^6) 13-JUN-78 
IS: 

12$: 
11$: 
2$: 
3$: 



3 

15: 



TYPE 


SUBROUTINE 


TSTB 


$CNTRL0 


BEQ 


12$ 


TYPE.$CRLF 


BR 


11$ 


MOVB 


(R0)*,-(SP) 


BNE 


2$ 


TST 


(SP)* 


NOV 


(SP)*.RO 


RTI 




CNPB 


#$HT,(SP) 


BEQ 


9$ 


JSR 


PC. 5$ 


CNPB 


#12. (SP)* 


BNE 


1$ 


NOV 


$NULL.-(SP) 



54 PAGE 39 

::BRANCH IF CONTROL 0( 0) WASN'T TYPED 
;;TYPE <CR><LF> 

;;PUSH CHARACTER TO BE TYPED ONTO STACK 

.-BRANCH IF NOT THE TERNINATOR 

::POP TERMINATOR CHAR OFF THE STACK 

:; RESTORE RO 

:; RETURN TO CALLER 

.-BRANCH IF HORIZONTAL TAB <HT> 

''TYPE CHARACTER 

••CHECK IF CHARACTER WAS A LINE FEED 
;:BRANCH IF NOT LINE FEED 
::GET # OF FILLERS REQUIRED AND FILLER 
;; CHARACTER. 



SEQ 0039 



001771 

177636 
000002 



000002 



4$: 


DECB 


KSP) 


:;DECRENENT FILLERS REQ. COUNT 






BLT 


3$ 


;:BRANCH IF NO NORE FILLERS ARE 


REQUIRED 




JSR 


PC. 5$ 


::TVPE FILLER CHARACTER 






BR 


4$ 






5$: 


TSTB 


a$TPS 


::WAIT FOR OUTPUT DEVICE 






BPL 


.-4 








CNPB 


«17.af$CNTRL0 


.'.•CHECK IF CONTROL 0 WAS TYPED 






BEQ 


» 6$ 


;:STOP TYPING NESSAGE IF 0 WAS 


TYPED 




NOVD 


2(SP).a$TPB 


: .-OUTPUT CHARACTER 




6$: 


CNPB 


«15,2(SP) 


: .-BRANCH IF NOT <CR> 






BNE 


7$ 








CLRB 


$CHARCNT 


;; CLEAR CHARACTERS TYPED COUNT 






BR 


8$ 






7$: 


CNPB 


#12,2{SP) 


;;BRANCH IF <LF> OR 'NULL' 






B6E 


8$ 








INCB 


$CHARCNT 


:;INCREHENT CHARACTER TYPED COUNT 


8$: 


RTS 


PC 







177566 



.-.HORIZONTAL TAB <HT> PROCESSER 
9$: 
10$: 



NOVB 


#40. (SP) 


;;LOAD 'SPACE* 
;;TYPE "SPACE* 


JSR 


PC, 5$ 


BITB 


#7.$CHARCNT 


;;TYPE SPACES UNTIL A MULTIPLE 


BNE 


10$ 


;;0F 8 CHARACTERS HAVE BEEN TYPED 


TSTB 


(SP)* 


;;POP SPACE 


BR 


1$ 


.-.-GET NEXT CHARACTER 



.SUBROUTINE TO SAVE GENERAL REGISTERS ON THE STACK 
.-CALL: SAVE 
.SAVE: NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
RTS 



R5,-(SP) 

R4,-(SP) 

R3.-(SP) 

R2.-(SP) 

RI.-(SP) 

RO.-(SP) 

14(SP),-(SP) 

PC 



.•SAVE REGISTERS ON THE STACK 



.-GET RETURN PC 
.-RETURN 



B 4 

CZTULAO T«02 DRIVE FUNCTION TIHER NACY11 30(10^6) 13-JUN-78 13:5A PAGE 40 

CZTULA.P11 07-JUN-78 17:07 TYPE SUBROUTINE SEQ 0040 



1658 








.'SUBROUTINE TO 


RESTORE GENERAL REGISTERS FROM THE STACK 


1659 








;CALL: RESTORE 






1660 


002232 


012666 


AAAA4 1 

000014 


Af>C*TAAP . MAt 1 

.RESTORE :nOv 


/ t% \ t 4y//>f^\ 

(SP)*.14(SP) 


;MOVE RETURN PC 


1661 


002236 


A4 ^ AA 

012600 




M At f 

nOv 


(SP)*,RO 


.'RESTORE REGISTERS 


1662 


002240 


A 4 1^ A4 

012601 




M At f 

nov 


(SP)*.R1 




1663 


002242 


012602 




NOV 


(SP)* ,R2 




1664 


002244 


012603 




HOV 


(SP)*,R3 




1665 


002246 


012604 




HOV 


(SP)*.R4 




1666 


002250 


A 4 ^ ^ A C 

012605 




M A t( 

BOv 


(SP)*,R5 




1667 


002252 


A AA *1 A^ 

000207 




RTS 


PC 


A P T 1 IB Al 

.-RETURN 


1668 














1669 








1 iB A Al 1 T ff U F TA 

.'SUBROUTINE TO 


CONVERT OCTAL DATA 


▼ A A 1!* V V 

TO ASCII 


1670 








/■All MAIf 

;CALL: HOv 


NUMBER, R2 


.-MOVE NUMBER TO R2 


1671 








1 C A 

: JSR 


PC. CNVOCT 




4 £ 

1672 














4 £ 

1673 


AA^ ^c y 

002254 


4 4 A^ £ T 

110667 


1 76646 


CNVOCT: nOVB 


SP.TYPfLG 


.'SET DO NOT TYPE FLAG 


1674 


AA^ A 

002260 


000402 




BR 


CNVTO 




1675 














4 £. ^d, 

1676 








.SBTTL 


OCTAL TO 


ASCII ( TYPE ROUTINE 


4 £ 

1677 








C 1 IB A Al 1 Y V ftl P Y A 

.'SUBROUTINE TO 


CONVERT OCTAL NUMBER TO ASCII AND TYPE IT OUT 


4 £ 

1678 








^ A 1 1 MAtJ 

.'CALL: NOV 


NUMBER. R2 


.rUI • In He 


1679 








; JSR 


PC, TYPOCT 


• r Al 1 Dm IT f tIF 
; LALL nUU i INC 


4 £ a/\ 

1680 














4 ^ a 4 

1681 


AA1 1 

002262 


4 AC AT7 

105037 


AA4 4 'id. 

001126 


T WBA^ T . ^ 1 BB 

TYPOCT: CLRB 


aiTYPFLG 


• CPT TVPP PI kti 
. dC i if r C r L AU 


1682 


AA1 1^ ^ 

002266 






CNVTO: 






4 ^ a V 

1683 


AA1 

002266 


AA/ TZ. T 

004767 


1 7771 X. 

1 777 lb 


1 C B 

JSR 


PC. .SAVE 


• CAUP DPCfCTPBC ntl TUP CTATIT 


1684 


00227Z 


A1 17A/ 

012704 


AA1 1 y y 
001 14^ 


MAI J 

HOV 


«0DIGITS,R4 


•<PT PTP Tfl nilTPIIT 


4 ^ ac 

1685 


AA1 ITZ. 

002276 


AACAAT 

005003 




^ 1 B 

CLR 


R3 


■R^ UTI 1 rONTAIN OrtAI DICIT 


4 ^ a^ 

1686 


AA1TAA 

002300 


A1 A1A1 

010201 




MAI J 

HOV 


R2.R1 


•APT § TO RP TVPPD 


1687 


AA1TA1 

002302 


AAZ. TA1 

006302 




1 # . A CI 

IS: ASL 


R2 


.'SHIFT # 


1 X DO 

1688 


002304 


AA^i AT 

006103 




B Al 

ROL 


R3 




1689 


AA^TA^ 

002306 


A1 ^7AA 

012700 


AAAAA/. 

000006 


nOV 


f6.R0 


;SET DIGIT COUNTER 


1690 


AA1 74 1 

002312 


AAAy Ay 

000404 




B B 

BR 


3$ 




4 ^ n4 

1691 














1692 


002314 


AAX. TA^ 

006302 




1# . A CI 

2»: ASL 


R2 


.SHIFT » 3 PLACES LEFT 


1693 


002316 


AAZ. 1 AT 

006103 




B Al 

POL 


R3 




1694 


002320 


AAC TA1 

005301 




AP /* 

DEC 


R1 




1695 


AA*)?^ 

002322 


AA4 T7y 

001374 




BUP 

BNE 


2$ 




i6t6 


AA1T 17 


A1 ^7Ai 

0127^01 


AAAAA7 
000003 


39 : nOV 


#3.R1 


;SET SHIFT COUNTER 


i £. AT 

1697 


AA1TT A 

002330 


1 163Z4 


AAi i T 7 

001 132 


novB 


DIGTAB(R3).(R4)f 


;MOVE ASCII EQUIV TO OUTPUT 


16V0 


002334 


AAC AAT 
005003 




CLR 


R3 




4 ^ AA 

1699 


002336 


AAC TAA 

005300 




DEC 


RO 


.'DECREMENT DIGIT COUNT 


1 r 00 


0023^0 


AA1 TXC 




BNE 


2$ 


;GET NEXT DIGIT 


1 f\j\ 




103f 3f 


AAi 1 "5^ 

001 1 do 


TSTB 


a#TYPFLG 


.'BRANCH IF ASCII IS 


1 f{ji 


00^346 


AAi AAO 

00100c 




BNE 


4$ 


;NOT TO BE TYPED 


1703 


AA^TCA 

002350 


AAAAA/ 

000004 


AAi i y y 
001 144 


TYPE.ODIGITS 




1 f 04 


002334 






4$: 






1 ^05 


00c3)h 


Art/ 7it7 
004 f Of 


1 77iLC? 


JSR 


PC. .RESTORE 


.'RESTORE REGISTERS FROM THE STACK 


1 f 06 


AA^T^A 

00£360 


AAA^ A7 

OOOcOr 




RTS 


PC 




1 707 














1708 














1709 








.'SUBROUTINE TO 


CONVERT OCTAL DATA 


TO DECIMAL ASCII 


1710 








;CALL: HOV 


NUMBER. R2 


;MOVE NUMBER TO R2 


1711 








JSR 


PC, CNVDEC 




1712 














1713 


002362 


110637 


001126 


CNVDEC: HOVB 


SP,a#TYPFLG 


;SET DO NOT TYPE FLAG 



L£ lULAU 


TH02 DRIVE FUNCTION TIMER HACYll 


30(1046) 


C 4 

13-JUN-78 13:54 


PAGE 


41 


SEQ 0041 


CZTULA. 


P11 07-JUN-78 


17:07 




OCTAL TO ASCII t TYPE ROUTINE 




17U 


002366 


000402 






BR 


CNVTD 








1715 








.SBTTL 


OCTAL TO DECIMAL I TYPE ROUTINE 




1716 








THIS 


ROUTINE CONVERTS AN OCTAL » 


TO DECIMAL ASCII AND TYPES IT OUT 




1717 








CALL: 


nov 


UllltDCD DO 




• DIIT M in 
;rUl f IN He 




1718 










leli 
JSR 






; LALL KUU 1 INC 




1719 




















1720 


002370 


105037 


001126 TYPDEC 


: CLRB 






• CCT T VDC 1 1 kC 
, dC 1 1 TrC r LAU 




1721 


002374 




CNVTD: 












1722 


002374 


004767 


177610 




1 CD 


or CAUC 








1723 


002400 


005000 




n D 


on 








1724 


002402 


012704 


001144 




nuv 


•UU lull d. nS 




•CPT nOTPMT PTR 




1725 


002406 


005003 


IS: 


n D 
ILK 


DT 








1726 


002410 


166002 


002470 2$: 


CI ID 


nrnucTfont d7 




•CIIRTDATT nFriMAI rDMCTAMT IIMTII 




1727 


002414 


103402 






Di n 
OLU 


39 








1728 


002416 


005203 






ikir 
iNl 


OX 








1729 


002420 


000773 






BR 


2% 








1730 


002422 


066002 


002470 3S: 


ADD 


DC0NST(R0),R2 




;ADD BACK CONSTANT WHEN NEGATIVE 




1731 


002426 


116324 


001132 




novB 


DIGTAB(R3),(R4)> 








1732 


002432 


062700 


000002 




ADD 


#2.R0 




•NEXT CONSTANT 




1733 


002436 


005760 


002470 




TST 


DCONST (RO) 




• iikirri Ai 1 rntic7AiiTC nntic 

^UNIIL ALL LUNsiANI) DUNE 




1734 


002442 


001361 






BNE 


It 








1735 


002444 


112724 


000060 




novB 


#'0,(R4)* 




•1 A^T Diet T IS 0 




1736 


002450 


105737 


001126 




TSTB 


atTYPFLG 




•BRANCH IF ASCII IS 




1737 


002454 


001002 






BNE 


4t 




•NOT TO BF TYPFD 




1738 


002456 


000004 


001144 




TYPE.ODIGITS 








1739 


002462 




4$: 








•RFSTORF RFCISTFRS FROM THE STACK 




1740 


002462 


004767 


177544 




JSR 


PC. RE STORE 






1741 


002466 


000207 






RTS 


PC 








1742 




















1743 


002470 


023420 


DCONST 


: .WORD 


10000. 








1744 


002472 


001750 






.WORD 


1000. 








1745 


002474 


000144 






.WORD 


100. 








1746 


002476 


000012 






.WORD 


10. 








1747 


002500 


000001 






.WORD 


1. 








1748 


002502 


000000 






.WORD 


0 




.-TERMINATOR 




1749 




















1750 










.SBTTL 


TYPE SPECIFIED 


TINES ROUTINE 




1751 








:THIS 


SUBROUTINE OUTPUTS THE TINE 


SPECIFICATIONS FOR THE TEST 




1752 








:AND ALSO THE ACTUAL TINE RECORDED (ATIHE) 




1753 








;FORKAT OF LINE 


TYPED 








1754 








; RANGE 


=<AAAAAA-BBBBBB> ACTUAL 


=CCCCCC 




1755 








; WHERE 




AAAAAA IS NAXINUN 


TINE 


FOR TEST (STIMTBL(TSTNUMX4)). 




1756 










BBBBBB IS NININUN 


TINE 


FOR TEST (STIMTBL(TSTNUNX4+2)). 




1757 












CCCCCC IS ACTUAL 


TINE 


RECORDED BY TEST (ATINE). 




1758 








•CALL: 


NOVB 


TEST NUNBER,R2 :L0AD 


TEST NUMBER 




1759 










NOV 


#TINE,a#ATINE 




;NOVE TIME TO ATIME 




1760 










JSR 


PC, OUTSPC 




:SAVE R2 t R3 ON THE STACK 




1761 


002504 


010246 


OUTSPC 


: NOV 


R2.-(SP) 






1762 


002506 


010346 






NOV 


R3,-(SP) 




.•MULTIPLY TEST # TIMES 4 




1763 


002510 


006302 






ASL 


R2 






1764 


002512 


006302 






ASL 


R2 




;T0 FORN INDEX INTO STIMTBL 




1765 


002514 


010203 






NOV 


R2,R3 




;R3 CONTAINS INDEX INTO TABLE 




1766 


002516 


000004 


014175 




TYPE.L. 


RNG 




;GET MAXIMUM SPEC TIME 




1767 


002522 


016302 


001416 




NOV 


STINTBL(R3>,R2 






1768 


002526 


004767 


177636 




JSR 


PCTYPDEC 




.•CONVERT TO DECIMAL & TYPE 




1769 


002532 


000004 


001405 




TYPE, DASH 
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MfQ 


002536 


A1 X T A^ 

016302 


AA1 y 1A 


nOv SI InTBL^clRS) ,Kc 




m ret BIf&irilllM TI MC 


Iff} 


002542 


AAV 7^7 

004 r6r 


1 f 7tcc 


J5R rClTPDEC 




;CONVcRi TO PcCinAL • TTrfc 


1772 


002546 


AAAAAV 

000004 


AAi y i 1 

001412 


TTrc ,ANul AB 






I f f5 




AAAAA/ 

000004 


AI / OAC 

01^205 


ITrc ,L . At 1 






1774 


002556 


013702 


001012 


nOV i#ATinE,R2 




;6ET ACTUAL TINE 


1 775 


002562 


AAi 7X 7 

004767 


^ 77Z.AT 

1 77602 


icik fir Tvfif\cr 
JSR rCTTPDcb 




ntnkmcoT TA f\crrMAi # tvdc 


1 776 


AA1 CXX 

002566 


AAAAAV 

000004 


AA1 TTi 

001374 


TWDC mi r 
TTrc ,CRLr 






17 f 7 


002572 


Ai ^XAT 

012603 




nOV (SP}«,R3 






1 778 


0025 


Al ^^A^ 

012602 




nOV (SP)«,R2 






I 7 fy 


AA1C7X 

002576 


AAA^A7 

00020 r 




RTS PC 




; RE TURN 


1 r OU 














1 7ol 








.SBTTL TYPE GAP 


TINES 


SUBROUTINE 


1782 








;TNIS SUBROUTINE IS USED TO TYPE 


THE SPECIFIED GAP SIZES (RECORDED IN 


1 Tax 








:TST021). IT IS CALLED BY THE GAPOIC ROUTINE 1^ THE GAP SIZE IS OUT OF 










.•RANGE VIA THE HLT ROUTINE (HLT«2). 




1 7BC 








.'CALL: nOVB f GAP. GAP 




;LOAD GAP f INTO GAP 


1 7BA 

1 fob 








; NOV fTinE.ATinE 




;LOAD ACTUAL TINE INTO ATINt 


1 7B7 

1 f Of 








; JSR PC.OUTGAP 






1 fOO 














1 7BO 

1 foy 


Wctw 


A1 A?Z,iL 

01 02^6 




OUTGAP: NOV R2.-($P) 




;SAVc R2 AND R3 


1 7QA 




Ai nx/ Ji 
010j<i6 




NOV R3.-(SP) 






1 701 




1 lOf U3 


1 7iLT1 A 

1 f 03 1 U 


nOVB GAP.RS 




.GET GAP » 


1 7O0 


AA0A1 A 


AAXTA'X 

UUojUj 




ASL R3 






1 701 


AA0A1 0 


AAXTA'C 

UUojUj 




ASL ft3 






1 f 


AA9A1 / 

UUcol^ 


AAAAA/ 
UUUUU^ 


A1 / 1 7< 
U 1 <t 1 f J 


TYPE.L.RN6 






1 7QC 


AA9A9A 


U IOjUc 


AAl ^70 
UU Ijfc 


nOV GTINTBL(R3),R2 




;GET NAX TINE 


1 70X 
1 f TO 


AA9A9A 


A A/. 7*7 
UU^f Of 


1 77?/A 
1 f f j'lU 


JSR PC.TYPOEC 




: CONVERT TO DECINAL I TYPE 


1 707 


nnsATA 
UUcOjU 


UUUUU*> 


AAl /AC 
UU 1 hU3 


TYPE.OASH 






1 70S 

1 f TO 




U 1 03Uc 


UU 1 3 f *» 


NOV GTINTBL«2(R3).R2 




:6ET NIN TINE 


1 700 

1 fyy 


An 3^ A 


A A/ 7il7 
UU*lf Of 


1 77S?/ 

1 f f JC"» 


JSR PC.TYPOEC 




: CONVERT TO DECINAL I TYPE 


1 Ann 
loUU 




AAAAA/ 
UUUUU*! 


AAl /I 9 
UU 1 1 c 


TYPE.ANGTAB 




.•TYPE < 


1 oU 1 


AA^iLCA 
UUc05U 


AAAAA/ 
UUUUU*! 


AI /9AC 
U IncUj 


TYPE, L. ACT 






1 OUc 


AA 


AI T7A5 
U 1 jfMc 


AAl ni 9 
UU 1 U 1 c 


NOV a#ATINE.R2 




.-GET ACTUAL TINE 


1 0\Jj 


AA9AAA 


UvH f O f 


1 77CA/ 
1 f f jU*» 


JSR PC.TYPOEC 




.•CONVERT TO DECINAL & TYPE 


1804 


002664 


000004 


013664 


TYPE. E. GAP 






1805 


002670 


113702 


001120 


NOVB a«GAP,R2 




:GET GAP « 


1 BAiL 


AA7A7/, 


AA/7A7 
UU*»f Of 


1 1 1 JOc 


JSR PC.TYPOCT 




.TYPE GAP « 


1 Bn7 


AA97AA 


AAAAA/ 
UUUUU*! 


AAl X7L 
UU 1 Jr*i 


TYPE.CRLP 






1 BnB 


AA37A/. 


AI 3AAT 
U 1 cOU3 




NOV <SP)*,R3 




.•RESTORE R3 AND R2 


1 OUT 


AA37AA 


AI 3AA9 
U 1 cOUc 




NOV (SP)^.R2 






1 fil n 

1 0 1 u 

1 fil 1 


nA37in 
vvcf lU 


UUUeUr 




RTS PC 






1011 
1 fil 7 








.SBTTL ASCII TO 


OCTAL 


CONVERT SUBROUTINE 


1 B1 T 








.•SUBROUTINE TO CONVERT ASCII DATA TO OCTAL. CONVERTED OCTAL DATA 


Ifil^ 
lOI^ 








:IS LEFT IN OCTALO <1S-00>. 






1 fil c 

10 1 3 


AA571 9 






CNVTAO: 






1 fi1 A 

lO 1 0 


AA571 5 
UU£ ' 1 c 


A A/ 7A7 
UU"» f Of 


1 f f CI c 


JSR PC. SAVE 




:SAVE REGISTERS ON THE STACK 


1 fil 7 

101 f 


AA971 A 
UUc f 10 


AI 97AA 
U 1 cf UU 


AAl 3iL/ 
UU 1 cO*l 


NOV fINBUF.RO 




.•SET PTR TO ASCII DATA 


1 fil fi 

1010 


AA0700 


AI 07A1 
Ulcf Ul 


AA1 1 1 
UU 1 1 1 0 


NOV fOCTALO.RI 




.•GET ADDRESS OF OCTAL DATA 


1819 


002726 


005011 




CLR (R1) 




; CLEAR OUT OLD OCTAL DATA 


1820 


002730 


005061 


000002 


CLR 2(R1) 






1821 


002734 


122710 


000015 


IS: CNPB fCR,(RO) 




:<CR> TERNINATES INPUT 


1822 


002740 


001414 




BEQ 3t 






1823 


002742 


112002 




NOVB (R0)^,R2 




;GET 'OCTAL* DATA 


1824 


002744 


042702 


^77770 


BIC #1 77770. R2 




.•STRIP UNUSED BITS 


1825 


002750 


012703 


000003 


NOV f3.R3 




;SET SHIFT COUNT 



E 4 
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1826 


002754 


006311 




2S: 


ASL 


(R1 ) 




;SHIFT LAST 


1827 


002756 


006161 


000002 






ROL 


2(R1) 




.•OCTAL DIGIT 


1828 


002762 


005303 








DEC 


R3 






1829 


002764 


001373 








BNE 


2S 






1830 


002766 


050211 








BIS 


R2.(R1) 




.-AND INSERT THIS DIGIT 


1831 


002770 


000761 








BR 


It 




;G0 GET NEXT DIGIT 


1832 


002772 






3$: 










1833 


002772 


004767 


177234 






JSR 


PC, .RESTORE 




.•RESTORE REGISTERS FROM THE STACK 


1834 


002776 


000207 








RTS 


PC 




.•RETURN 


1835 




















1836 












.SBTTL 


PUBLISH 


SUBROUTINE 


1837 










THE PUBLISH SUBROUTINE AVERAGES 


THE 


RECORDED TIHES FOR EACH TEST IT- 
:ES THE AVERAGE RESULT IN 'ATIHE*. 


1838 










ERATION (IF 16. ITERATIONS) AND 


PLA( 


1839 










IT TYPES THE NAHE OF THE FUNCTION THAT WAS TIMED, THE TIME SPEC- 


1840 










IFICATION AND 


THE ACTUAL TINE . 






1841 




















18A2 


003000 






PUBLISH 


: 








1843 


003000 


004767 


177204 






JSR 


PC, .SAVE 




;SAVE REGISTERS ON THE STACK 


1844 


003004 


012700 


001014 






nov 


f ATIMTBL.RO 


;GET 


TABLE ADDRESS CONTAINING TIMES 


1845 


003010 


113701 


001121 






novB 


if ITCNT.RI 


;GET 


# OF ENTRIES (GIVEN BY ITERATION COUNT) 


1846 


003014 


122701 


000001 






cnPB 


#1 ,R1 




.'BRANCH IF SINGLE ITERATIOM 


1847 


003020 


0014t3 








BEQ 


4S 






1848 


003022 


005002 








CLR 


R2 




.-CLEAR 'SUn* REGISTERS 


1849 


003024 


005003 








CLR 


R3 






1850 


003026 


122701 


000004 






CHPB 


#4.R1 




M A AAft^ftft M • V A W ft ^ 

.'BRANCH IF 4. ITERATIONS 


1851 


003032 


C01402 








BEQ 


1$ 






1852 


003034 


000000 








HALT 






; ITERATION COUNT ffUST BE 1 OR 16. 


1853 


003036 


000777 








BR 


• 




flk A A ft 4k V M ■ ft A Aft ^ F Mtfk^ • V ^ ■ t4 4 

:D0 NOT CHANGE POSIT OF SU11 


1854 


















ft ■ ft ■ ^ Aft 9 fl" ^ V S ^ Jkft ^A^Aft V Aft Ab 

:UHEN TEST IS RUNNING. 


1855 




















1856 


003040 


062002 




IS: 


ADD 


(R0)*,R2 




;SUN INDIVIDUAL TINES 


1857 


003042 


005503 








ADC 


R3 






1858 


003044 


005301 








DEC 


R1 






1859 


003046 


001374 








BNE 


1$ 






1860 




















1861 


003050 


012700 


000002 


2S: 


nov 


#2,R0 






1862 


003054 


006203 




3S: 


ASR 


R3 




.SHIFT TINE IN R3 ( R2 4 PLACES 


1863 


003056 


006002 








ROR 


R2 




.RIGHT = DIVIDE BY 16. 


1864 


003060 


005300 








DEC 


RO 






1865 


003062 


001374 








BNE 


3$ 






1866 


003064 


010237 


001012 






nov 


R2.a#ATinE 




.-nOVE AVERAGED TIHES 


1867 




















1868 


003070 


113700 


001122 


4S: 


novB 


a#TSTNUn,RO 




.'GET TEST # 


1869 


003074 


006300 








ASL 


RO 






1870 


003076 


016067 


001672 


000002 




nov 


NAnPTR(R0).5S 




;GET TEST NAME STRING ADDRESS 


1871 


003104 


000004 








TYPE 






1 


1872 


003106 


000000 




r , . 


.WORD 


0 






1873 


003110 


113702 


001122 






novB 


8fTSTNUM,R2 




.'GET TEST # 


1874 


003114 


004767 


1 77364 






JSR 


PCOUTSPC 




.'OUTPUT TinES 


1875 


AAV 4 ^A 

003120 


004767 


1 77106 






JSR 


PC, .RESTORE 




.'RESTORE REGISTERS FROn THE STACK 


1876 


003124 


000207 








RTS 


PC 






1877 




















1878 












.SBTTL 


INPUT SUBROUTINE 


1879 










: SUBROUTINE TO 


GET TTY INPUT 






I860 










;CALL: 


JSR 


PC. INPUT 






1861 










; INPUT 


DATA IS 


RETUNED IN BUFFER 


BEGINNING AT INBUF. 



CZTULAO 
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P11 07-JUN-78 


17:07 


INPUT SUBROUTINE 


SEO 004A 


1 OOC 












1 OOD 


nnn Ji^ 


A t AAA & 

U1 UUhO 




INPUT- HOU RO -(SP) 


•SAVE RO ON THE STACK 


1 OOH 


UUj 1 jU 


U 1 c r UU 


001264 


It- NOV fINBUF RO 




1 OOj 


UUj I j*t 


1 Uj f jf 


177560 






1 AAA 
1 OOD 


UUj I hU 


1 nnx7C 
lUUjr 7 




BPI 7t 

Or L C V 




1 AA7 












1 AAA 

1 OOO 


UUj I He 


1 1 X7A A 
1 1 J f HO 


177562 


HOUR atTKB -(SP) 


•GET CHARACTER 


1 AAO 


UUj I mo 


Uhc r 1 0 


000200 






1 AQn 


UUj I jc 


1 cc r 1 O 


000177 


CMPB #177 (SP) 


•CHECK RUBOUT 


1 A01 


UUj I JO 


A01 on^ 

UU 1 UUH 




RNF Xt 

OIL J9 




1 A09 


UUj I OU 


1 74076 
1 c*>UcD 




mPR -(RO) (SP)« 


•RENOVE CHARACTER FRON INPUT 


1 AQ^ 


UUJ 1 Oc 


000004 


001377 






1 AQ^ 


00'^166 
wv J 1 OO 


000767 
UUUr Oc 




BR 2S 


•WAIT FOR NEXT CHARACTER 


1 AQS 


UUJ 1 ' u 


1 77716 
1 cc 1 1 o 


000025 


XI- fMPR fCNTRlU (SP) 


-CHECK CONTROL U ( U) 

« k rvk k k vn 1 n V « w / 


1896 

1 OTV 


UUj I f H 


UU 1 UUH 




BNF 4S 




1897 


00^1 76 
wv J 1 f O 


00S776 

UUJ r CO 




TST 'SP)« 




1898 


wv Jc wv 


000004 

UvUUUH 


001374 


TYPE CRLF 




1899 


00^704 


0007S1 

UwU r J 1 




BR IS 




1QA0 


00^706 


1116X7 


001401 


4t> MOVB (SP) aiECHO 




1901 


00X717 


111 670 
III Ocv 




NOVB (SP) (R0)« 




190? 


00X714 

vv Jc 1 *• 


1 77776 

1 cc r CO 


000015 


CNPB ICR (SP)« 




190^ 


00X770 
wvJccw 


001 40X 

UU 1 H U J 




BED 5t 




1904 


00X777 

vv J£c£ 


000004 


001401 


TYPE ECHO 




1 TV J 


00X776 
UvJccO 


000747 

UUUf He 




BR 2t 




1906 


00X7X0 

UVJC Jw 


000004 

UUUUUH 


001374 


5S' TYPE CRLF 




1907 


00X7X4 
UUJc JH 


017600 

U 1 COUU 




NOV (SP)« RO 




1908 

1 Two 


00X7X6 
Uwjc JO 


000707 
UvUcUr 




RTS PC 




1909 

1 TWT 












1910 

1 T 1 V 








.-KEYBOARD INTERRUPT SERVICE ROUTINE 


191 1 

1 T 1 1 


00X740 

WW JCHU 


1 1 X746 

1 1 J r HO 


177562 


TKISR: NOVB afTKB.-(SP) 


;6ET TYPED CHARACTER 


1917 

1 T 1 C 


00X744 


047716 

UHC r 1 0 


000200 


BIC #200, (SP) 


;STRIP PARITY BIT 


191 ^ 

1 T 1 J 


00X7S0 

VvJC Jw 


077716 

UCC f 1 o 


000017 


CNP fCNTRLO.(SP) 


.-BRANCH IF NOT CONTROL 0 ( 0) 


191 4 


00X7S4 

WV JC J*t 


001 OOX 
vw 1 vv J 




BNE IS 




191 S 

1 T 1 J 


00X7^6 
WW Jc JO 


1 1 7667 

1 1 COOr 


176507 


NOVB (SP)*,SCNTRLO 


.SET CONTROL 0 INDICATOR IN TYPE ROUTINE 


1916 

1 T 1 O 


00X76? 

UUJCOC 


00000? 

UVUVVC 




RTI 


.-EXIT 


1917 












1918 


00X764 

wvJCO*t 


177776 

1 cc r Cv 


000003 


IS: CNPB 13, (SP)* 


.-BRANCH IF NOT CONTROL C ( C) 


1919 

1 T 1 T 


00X770 

WVJC ' w 


001 OOX 

UU 1 UUJ 




BNE 2S 




1970 

1 7Cv 


00X777 

WVJC ' c 


OOOOOS 

VVVVV J 




RESET 




1 7C 1 


00X774 

WW JC ' *• 


0001 X7 

UUU 1 J f 


005340 


JNP aflNIT 


.'RESTART PROGRAM 


1 7CC 


noxxoo 

UwJJUU 


Ooooo? 

wUwwUC 




2S: RTI 


;EXIT 


1 7C J 








.SBTTL ERROR 


SERVICE ROUTINES 


1 7C*t 








.ROUTINE TO PROCESS ERROR TRAPS (TRAPS TO 4) 


197S 

1 TC J 


00X30? 


000000 




ERRTRP: HALT 




1976 

1 TcO 












1977 

1 TC 1 








:ERROR SERVICE ROUTINE 




1978 

1 TCO 








.-THIS ROUTINE PROCESSES TWO TYPES OF ERRORS (OUT OF RANGE AND HARDWARE) 


1929 








;THE CALLS FOR AN OUT OF RANGE 


ERROR ARE <HLT*1>.<HLT*2> AND. FOR A 


19^0 

1 T JU 








.HARDWARE ERROR THE CALL IS <HLT>. 


19^1 

1 T J 1 








7HLT: NOP 




19^7 


003304 


000240 








00XX06 

wwJ JVO 


004767 

wwH f O f 


176676 


JSR PC SAVE 


.-SAVE REGISTERS ON THE STACK 


19^ 

1 7 


003312 


110637 


001123 


IS: NOVB SP.atERFLG 


;SET ERROR FLAG 


7935 


003316 


012777 


020000 175454 


BIT #SUl3,aSUR 


.BRANCH IF NO TYPOUT 


1936 


003324 


001075 




BNE 4S 




19^7 

1 TJf 


003326 


000004 


013465 


TYPE.E.HDR 
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1938 


003332 


113702 


001122 




1939 


003336 


004767 


176720 




1940 


003342 


016600 


000016 




1941 


003346 


162700 


000002 




1942 


003352 


111000 






1943 


003354 


001417 






1944 


003356 


000004 


013550 




1945 


003362 


122700 


000002 




1946 


003366 


001005 






1947 


003370 


004767 


177204 




1948 


003374 


000004 


001374 




1949 


003400 


000447 






1950 


003402 


004767 


177076 




1951 


003406 


000004 


001374 




1952 


003412 


000442 






1953 


003414 


016500 


000014 




1954 


003420 


032765 


002000 


000032 


1955 


003426 


001403 






1956 


003430 


042700 


102100 




1957 


003434 


000402 






1958 


003436 


042700 


102300 




1959 


003442 


005700 






1960 


003444 


001003 






1961 


003446 


000004 


013441 




1962 


003452 


000434 






1963 










1964 


003454 


000004 


013475 




1965 


003460 


010500 






1966 


003462 


012701 


000007 




1967 


003466 


012002 






1968 


003470 


004767 


176566 




1969 


003474 


000004 


001407 




1970 


003500 


005301 






1971 


003502 


001371 






1972 


003504 


016502 


000032 




1973 


003510 


004767 


176546 




1974 


003514 


000004 


001374 




1975 










1976 


003520 


032777 


001000 


175252 


1977 


003526 


001402 






1978 


003530 


000004 


001403 




1979 


003534 


005777 


175240 




1980 


003540 


100001 






1981 


003542 


000000 






1982 


003544 








1983 


003544 


004767 


176462 




1984 


003550 


000002 







1985 
1986 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
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SEQ 0045 



lOS: 
2S: 



20S: 
2U: 



22S: 
3S: 



4$: 
5S: 
6S: 



MOVB afTSTNUM,R2 


;GET TEST # 


JSR PCTYPOCT 


;AND TYPE IT 


nOV 16(SP},R0 


;GET RETURN PC 


SUB f2,R0 


;NOW PC OF HLT CALL 


nOVB (RO),RO 


:NOU HLT CALL ITSELF 


BEQ 2S 


;BRANCH IF HLT 


TYPE.E.H0R2 




CnPB #2.R0 


.•BRANCH IF NOT HLT*2 


BNE lot 




JSR PCOUTGAP 


;TYPE GAP SPECIFIED TIMES 


TYPE.CRLF 




BR 4S 




JSR PCOUTSPC 


;TYPE SPECIFIED TIMES 


TYPE.CRLF 




BR 4S 




nOV ER(R5).R0 




BIT fPE1600,TC(R5) 




BEQ 20S 




BIC #102100, RO 




BR 21t 




BIC #102300, RO 




TST RO 




BNE 22t 





TYPE.E.SFT 



BR 



6t 



;TYPE SOFT ERROR MESSAGE 



TYPE.E.HDRl 

nOV R5.R0 

BOV #7..R1 

NOV (R0)*.R2 

JSR PCTYPOCT 

TYPE.SPACE2 

DEC R1 

BNE 3t 

HOV TC(R5).R2 

JSR PCTYPOCT 

TYPE.CRLF 

BIT #SW09,aSWR 
BEQ 5S 
TYPE, BELL 

TST asuR 

BPL 6S 
HALT 



GET FIRST ADDRESS OF REGS. 
TYPE FIRST 7 REGS. 
GET REG CONTENTS 
AND TYPE IT 



;GET CONTENTS OF TC REGISTER 



.-BRANCH IF NO RING THE BELL 



JSR 
RTI 



PC. RESTORE 



.•HALT ON ERROR? 



.•RESTORE REGISTERS FROM THE STACK 
.•RETURN 



.SBTTL SCOPE SUBROUTINE 

SCOPE ROUTINE 

THIS ROUTINE IS ENTERED UPON COMPLETION OF EACH SUBTEST 
THE SCOPE ROUTINE: 

OUTPUTS TIME SPEC ON EACH ITERATION IF SU08 IS SET 

REPEATS TEST IF SW14 IS SET 

STORES ACTUAL TIME FOR FUNCTION IN TIME TABLE (ATIMTBL) 
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199A 
1995 
1996 
1997 
1998 
1999 
2000 
2001 
2002 
2003 
200A 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
20U 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 
2029 
2030 
2031 
2032 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 
2045 
2046 
2047 
2048 
2049 



H 4 

HACYll 30(1046) 13-JUN-78 13:54 
SCOPE SUBROUTINE 



PAGE 46 



SEQ 0046 



RETURNS: 



PUBLISHES TIHE IF SUlO^O 

UPDATES ITERATION COUNT AND IF ITERATIONS COMPLETE CONTINUES 
TO NEXT TEST, OTHERWISE REPEATS TEST. 
DELAYS BEFORE CONTINUING OR REPEATING TEST. 
INITIALIZES DRIVE 

R5-BASE ADDRESS OF Tn02 REGISTERS (ADDRESS OF CSl) 
Rl-'DS' REG ADDRESS 
RO='FC' REG ADDRESS 



003552 


013705 


001010 




.SCOPE : 


MOV 


afTMBASE,R5 


SET R5 TO FIRST TM REG 


003556 


032777 


000400 


175214 




BIT 


fSU08,aSUR 


BRANCH IF SPECIFICATION LINE 


003564 


001404 






BEO 


10$ 


NOT DESIRED ON EACH ITERATION 


003566 


113702 


001122 






MOVB 


ilTSTNUn,R2 


GET TEST NUMBER 


003572 


004767 


176706 






JSR 


PCOUTSPC 


OUTPUT TIME RECORDED 


003576 


032777 


040000 


175174 


10$: 


BIT 


#SUl4,aSUR 


'BRANCH IF CONTINUOS LOOP 


003604 


001417 








BEO 


2$ 


kaM V ik^^VM^M 

■NOT DESIRED 


003606 


004767 


000542 




1$: 


JSR 


PC, DELAY 


;DELAY 350 MS 


00361 2 


004767 


000772 






JSR 


PC ,RHINIT 


; INIT 


003616 


105037 


001123 






CLRB 


ilERFLG 


.^1 PAR PRAAA ri t ^ 

; CLEAR ERROR FLAG 


003622 


016716 


4 ^ P 4 P ^ 

175154 






MOV 


ft^AAAA /f*A\ 

SCPADR, (SP) 




003626 


010501 








MOV 


A r A 4 

R5,R1 




003630 


062701 


000012 






ADD 


IDS,R1 


.'ADDRESS OF DS REG IS IN R1 


003634 


010500 








MOV 


A r A A 

R5,R0 




003636 


062700 


M M A A A £ 

000006 






ADD 


fFC.RO 


AAAnp<*<* AP Ir^l Ar^ ffp ffu aA 

;ADDRESS OF FC REG IS IN RO 


003642 


000002 








RTI 






003644 


105737 


001123 




2S: 


TSTB 


ifERFLG 


.'BRANCH IF ERROR FLAG IS SET 


003650 


A A 4 A A y 

001006 








BNE 


3t 




003652 


« 4 V ^ A A 

113700 


001121 






MOVB 


if ITCNT,RO 


;GET ITERATION COUNT 


003656 


f\f\£ VAA 

006300 








ASL 


A A 

RO 


; STORE TIME IN TABLE 


003660 


A 4 V A 

013760 


AA4 A4 ^ 

001012 


AA4 A4 / 

001014 




M All 

MOV 


if ATIMc,ATIMTBL(RO) 




A A V ^ d. d. 

003666 


4 Ar ^ w 

105237 


A A 4 4^4 

001121 




3S: 


INCB 


if ITCNT 


_ tUAnrMrUT rTCDATffAU TAllUT 

; INCREMENT ITtRATION COUNT 


003672 


AT ^ ^ ^ ^ 

032777 


A A / AAA 

004000 


1 75100 




BI T 


f Swl 1 ,iSUR 


;BRANCH IF SlNoLc ITERATION DcblKtD 


AAV ? A A 

003700 


A A4 A A / 

001004 








BNE 


4» 




003^02 




nnnnnL 


UOl 1 cl 




CMro 


ML AM 1 TrilT 


,OHmn\,n IT IICRAIIUN) INLUnrLCIC 


003710 


001336 








BNE 


n 




003712 


011637 


001002 




4$: 


MOV 


(SP), if SCPADR 


.SET SCOPE ADDRESS TO NEXT TEST 


003716 


052777 


002000 


175054 




BIT 


fSU10,iSUR 


.'BRANCH IF NO PUBLICATION DESIRED 


003724 


001002 








BNE 


5S 




003726 


004767 


177046 






JSR 


PC, PUBLISH 


:G0 PUBLISH TEST DATA 


003732 


105037 


001121 




51: 


CLRB 


if ITCNT 


;RESET ITERATION COUNT 


003736 


105777 


175036 






TSTB 


iSUR 


.•BRANCH IF USER DOES NOT WANT TO 


003742 


001721 








BEQ 


IS 


.'HALT ON A SELECTED TEST 


003744 


017746 


175030 






MOV 


iSUR,-(SP) 


;GET SWITCHES 


003750 


042716 


177740 






BIC 


f177740,(SP) 


.-CLEAR ALL BUT TEST f 


003754 


005316 








DEC 


(SP) 


;FORM TEST f -1 


003756 


123726 


001122 






CMPB 


ifTSTNUM,(SP)^ 


.'BRANCH IF NOT AT TEST 


003762 


001311 








BNE 


1$ 




003764 


000000 








HALT 






003766 


000707 








BR 


11 





.SBTTL TIMER SUBROUTINES 

SUBROUTINE TO SYNCHRONIZE THE TIMER AND TURN IT ON. 

REGISTER 4 IS CLEARED, AND THE OSCILLATOR POLARITY IS MONITORED 

THE ROUTINE IS EXITED WHEN THE OSCILLATOR POLARITY CHANGES WITH R3 
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TIMER SUBROUTINES 

SET TO INDICATE THE POLARITY OF THE OSCILLATOR. 



SEO 0OA7 



2067 
2068 
2069 
2070 
2071 
2072 
2073 
207A 
2075 
2076 
2077 
2078 
2079 
2080 
2081 
2082 
2083 
2084 
2085 
2086 
2087 
2088 
2089 
2090 
2091 
2092 
2093 
2094 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 



2051 










iCALL: 


JSR 


PCTINON 




2052 










: RE TURNS: 


R3 SET TO INDICATE 


LAST POLARITY (♦24/-24=0/1 ) 


2053 














R4 = 0 




2054 


















2055 


003770 


005004 






TIHON: 


CLR 


R4 


.•CLEAR TIME COUNT 


2056 


003772 


012703 


000024 






nov 


#24. R3 


;SET POLARITY TO 'O* STATE 


2057 


003776 


032765 


000100 


000024 




BIT 


#0SC,HR(R5) 


.•BRANCH IF POLARITY IS '0' 


20S8 


004004 


001405 








BEQ 


2S 




2059 


004006 


032765 


000100 


000024 


1S: 


BIT 


#0SC.nR(R5) 


.-WAIT FOR OSCILLATOR TO RETURN 


2060 


004014 


001374 








BNE 


IS 




2061 


004016 


000405 








BR 


4S 




2062 


















2063 


004020 


005403 






2S: 


NEG 


R3 


.•NEGATE PREV POLARITY INDICATOR 


2064 


004022 


032765 


000100 


000024 


3S: 


BIT 


#OSC,nR(RS) 


.-WAIT FOR OSCILLATOR TO RETURN 


2065 


004030 


001774 








BEQ 


3S 


;T0 '1' STATE 


2066 


004032 


000207 






4S: 


RTS 


PC 





004034 
004042 
004044 



004060 
004062 
004064 
004066 
004070 
004074 
004076 



004104 
004112 
004114 



032765 
001406 
000112 

004060 
005403 
005204 
100401 
000112 
000004 
104400 
000177 

004104 

032765 
001362 
000112 



000100 000024 



SUBROUTINE TO COUNT TINE 

EACH TIME THE OSCILLATOR TOGGLES (BIT <06> IN MR REG) REGISTER 
R4 IS INCREMENTED. AND THE REGISTER R3 IS NEGATED TO INDICATE 
THE LAST STATE OF THE OSCILLATOR. 

CALL JMP TIMER(R3) :R3 IS SET BY TIHON ROUTINE 

R2»RETURN ADDRESS TO CALLER 
NOTE: THE TINE TO EXECUTE THIS ROUTINE IS VERY CRITICAL. IT MUST BE 
LESS THAN 40 US. 

.ENTER HERE VIA JNP TI»IER(R3) WHEN R3s-24 (PREV STATE=1) 
TIMER1: BIT #0SC.NR(R5) .-BRANCH IF CURRENT STATE IS 'O* 

BEQ TIMER :G0 INCREMENT TIME 

JMP (R2) :RETURN TO TEST 



TIMER: 



.=TIMERU24 



013576 
174700 

000100 000024 



NEG 
INC 
BNI 
JMP 

TIMERR: TYPE.E.TIMOV 
HLT 
JMP 



R3 
R4 

TIMERR 

(R2) 



aSCPADR 



.•NEGATE PREV STATE INDICATOR 
INCREMENT 'TICK' COUNT 
.•BRANCH ON OVERFLOW 
;RETURN TO TEST 
.•TYPE 'TIMER OVERFLOWED* 
.REPORT HARDWARE ERROR 
.•RETURN TO BEGINNING OF TEST 



.sTIMER*24 

;ENTER HERE VIA JMP TIMER(R3) WHEN R3=^24 (PREV STATE=0) 
TIMERO: BIT fOSC,MR(R5) .-BRANCH IF CURRENT STATE 

BNE TIMER 

JMP (R2) 



'1 ' 



004116 



SUBROUTINE TO CHECK TIME RECORDED BY SUBTEST. 

THIS SUBROUTINE COMPUTES THE ACTUAL TIME (IN MICROSECONDS) AND CHECKS 
THAT THE TIME RECORDED BY THE SUBTEST IS CORRECT BY COMPARING THE TIME 
WITH THE HIGH LIMIT (STIMTBL(RO) ) AND THE LOW LIMIT (ST1MTBL>2(R0) ) . 
IF THE TIME IS OUT OF RANGE AN OUT OF RANGE ERROR TYPEOUT RESULTS. 
THE SUBROUTINE IS ENTERED WITH: 
R4=TICK COUNT 

TIMOK: 
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SEQ 00A8 



2106 

2107 

2108 

2109 

2110 

2111 

2112 

2113 

21U 

2115 

2116 

2117 

2118 

2119 

2120 

2121 

2122 

2123 

2124 

2125 

2126 

2127 

2128 

2129 

2130 

2131 

2132 

2133 

2134 

2135 

2136 

2137 

2138 

2139 

2U0 

2U1 

2U2 

2U3 

2H4 

2H5 

2U6 

2U7 

2UB 

2U9 

2150 

2151 

2152 

2153 

2154 

2155 

2156 

2157 

2158 

2159 

2160 

2161 



004116 
004122 
004126 
004130 
004132 
004134 
004136 
004140 
004142 
004144 

004146 
004150 
004154 
004160 
004162 
004166 
004172 
004174 
004176 
004204 
004206 
004214 
004216 
004220 
004220 
004224 



004226 
004226 
004232 
004236 
004240 
004242 
004244 
004246 
004250 
004252 

004254 
004256 
004260 
004264 
004270 
004272 
004276 
004302 



004767 
012700 
010401 
005002 
005003 
060002 
005503 
005301 
001374 
010246 

010346 
012746 
004767 
005726 
012637 
113700 
006300 
006300 
023760 
101004 
023760 
101001 
104401 

004767 
000207 



004767 
012700 
010401 
005002 
005003 
060002 
005503 
005301 
001374 

010246 
010346 
012746 
004767 
005726 
012637 
113703 
006303 



1 76066 
000104 



1S: 



000012 
000262 

001012 
001122 



001012 001416 
001012 001420 

176006 



2S: 
3S: 



JSR PC. .SAVE 

MOV 168., RO 

MOV R4.R1 

CLR R2 

CLR R3 

ADD R0.R2 

ADC R3 

DEC R1 

BNE 1$ 

MOV R2.-(SP) 

MOV R3.-{SP) 

MOV #10. .-(SP) 

JSR PC, DIVIDE 

TST (SP)* 

MOV (SP)*,a#ATIME 

MOVB a#TSTNUM,RO 

ASL RO 

ASL RO 

CMP a#ATIME,STinTBL(RO) 

BHI 2S 

CMP a#ATIME,STIMTBL*2(R0) 

BHI 3S 

HLT*1 

JSR PC.RESTORE 

RTS PC 



.-SAVE REGISTERS ON THE STACK 

;GET TIME PER TICK 

;GET TICKS COUNT 

;CLEAR SUMMING REGISTERS 

;MULTIPLY TIME PER TICK 
;BY TICK COUNT 



.-DIVIDE COUNT BY 10. 



.-DISCARD REMAINDER 
.-STORE QUOTIENT 
;GET TEST # 



.'CHECK THAT TIME IS WITHIN 
;LIM1TS SPECIFIED 



.-CALL ERROR ROUTINE 

.-RESTORE REGISTERS FROff THE STACK 
.RETURN 



SUBROUTINE TO CHECK INDIVIDUAL CAP TIMES (PRODUCED BY TST021) 
SUBROUTINE COMPUTES THE ACTUAL TIME (IN MICROSECONDS) AMD CHECKS 
THAT THE GAP TIME RECORDED BY THE SUBTEST (TST021) BY COHPARING THE 
TIME yiTH THE MAX LIMIT (GTINTBL-GAPTBLCRD) AND THE MIN LIMIT 
(6TIHTBL*2-GAPTBL(R1)). 



175756 
000104 



CALL: 



GAPOK: 



IS: 



000012 
000152 

001012 
001120 



MOV fTICK COUNT. R4 
MOVB fCAP.afGAP 
JSR PC, GAPOK 



JSR PC. .SAVE 

MOV #68., RO 

MOV R4,R1 

CLR R2 

CLR R3 

ADD R0,R2 

ADC R3 

DEC R1 

BNE IS 

MOV R2,-(SP) 

MOV R3,-(SP) 

MOV #10.,-(SP) 

JSR PC, DIVIDE 

TST (SP)* 

MOV (SP)*.a#ATIME 

MOVB a#GAP,R3 

ASL R3 



:R4 CONTAINS TICK COUNT 
.-LOCATION GAP CONTAINS GAP # 



.•SAVE REGISTERS ON THE STACK 

;6ET TIME PER TICK 

.-GET TICK COUNT 

; CLEAR SUMMING REGISTERS 

; MULT I PLY TICK COUNT 
;BY TIME PER TICK 



.-DIVIDE TIME BY 10. 



DISCARD REMAINDER 
STORE QUOTIENT 
GET GAP # 
MULTPLY BY 4 
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2162 
2163 
216A 
2165 
2166 
2167 
2168 
2169 
2170 
2171 
2172 
2173 
21 7A 
2175 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
21 8A 
2185 
2186 
2187 
2188 
2189 
2190 
2191 
2192 
2193 
2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
22U 
2215 
2216 
2217 



004304 
004306 
004314 
004316 
004324 
004326 
004330 
004332 
004340 
004342 

004346 
004346 
004352 



004354 
004360 
004362 
004366 
004366 
004372 
004376 
004400 
004402 



004404 
004410 
004412 
004416 
004420 
004424 
004424 
004430 
004434 
004436 
004440 



006303 
023763 
101004 
023763 
101002 
104402 
000406 
032777 
001402 
004767 



004767 
000207 



004767 
010246 
012702 

000163 
032704 
001773 
012602 
000207 



005767 
001413 
004767 
010246 
012702 

000163 
023704 
101373 
012602 
000207 



001012 001572 
001012 001574 

000400 174440 
h 76232 

175660 

177410 

004372 

004060 
004000 



174504 

177352 

004430 

004060 
001114 
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SEQ 00A9 



2$: 
3S: 

100S: 



ASL 


R3 


;T0 GET AT TABLE ENTRr 


CHP 


a#ATINE,GTINTBL(R3) 


.•CHECK TIME (MAX) 


BHI 


2$ 




CHP 


i#ATII1E,GTINTBL*2(R3) 


.CHECK TINE (NIN) 


BHI 


3$ 




HLT+2 




.-REPORT OUT OF RANGE ERROR 


BR 


100S 




BIT 


#sw08,asuR 


.•BRANCH IF TIMES NOT WANTED 


BEQ 


100$ 




JSR 


PC.OUTGAP 


.•TYPE GAP TIMES 


JSR 


PC. RESTORE 


.•RESTORE REGISTERS FROM THE 


RTS 


PC 


.•RETURN TO TEST 



.SBTTL 



DELAY SUBROUTINES 



:THIS SUBROUTINE CAUSES A DELAY OF 350 MS. 



DELAY: 

IS: 
2S: 



JSR 
MOV 
MOV 

JHP 

BIT 
BEQ 
MOV 
RTS 



PC.TIHON 
R2.-(SP) 
#2$,R2 

TIHER(R3) 
#4000, R4 
1$ 

(SP)*.R2 
PC 



;SAVE R2 ON THE STACK 

.-SET RETURN ADDRESS FOR TIMER 

;G0 TO TIMER » RETURN VIA R2 
.•RESTORE R2 



THIS SUBROUTINE ALLOWS A CALLER SPECIFIED DELAY (UP TO 65MS.) 



CALL: 
DELAYV; 

IS: 
2S: 

3S: 



MOV DELAY TINE.DELTIM 

JSR PC. DELAYV 

TST OELTIM 

BEQ 3$ 

JSR PC.TinON 

MOV R2.-(SP) 

MOV «2S«R2 

JHP TINER(R3) 

CHP a«DELTIH,R4 

BHI IS 

HOV (SP)«.R2 

RTS PC 



.•LOAD DELAY TIME (IN US) 

;BRANCH IF 0 DELAY 

.•TURN TIMER ON 

.-SAVE R2 ON THE STACK 

:SET RETURN ADDRESS FROM TIMER 

:G0 TO TIMER t RETURN VIA R2 
;RESTORE R2 



004442 005046 



.SBTTL DIVIDE SUBROUTINE 
THIS SUBROUTINE DIVIDES A DOUBLE PRECISION # AND RETURNS THE RESULT 
TO THE CALLER ON THE STACIC. BOTH DIVIDEND t DIVISOR HOST BE POSITIVE. 
CALL: HOV LEAST SIGNIFICANT HALF DIVIDEND. -(SP) 

HOV tnOST SIGNIFICANT HALF DIVIDEND, -(SP) 

HOV fDIVISOR,-(SP) 

JSR PC. DIVIDE 

RETURN 

(SP)=REHAINDER ON STACK 
2(SP)sQU0TIENT 

.NOTE: THIS SUBROUTINE DESTROYS PREVIOUS CONTENTS OF R0.R1,R2 % R3. 
DIVIDE: CLR -(SP) ;SAVE LOC FOR SIGNS 
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SEQ 0050 



2218 


004444 


012746 


000021 


2219 


004450 


016601 


000012 


2220 


004454 


016600 


000010 


2221 


004460 


016602 


000006 


2222 


004464 


005402 




2223 


004466 


000241 




2224 


004470 


000405 




2225 


004472 


006100 




2226 


004474 


010003 




2227 


004476 


060203 




2228 


004500 


103001 




2229 


004502 


010300 




2230 


004504 


006101 




2231 


004506 


005316 




2232 


004510 


001370 




2233 


004512 


005726 




2234 


004514 


005726 




2235 


004516 


010166 


000006 


2236 


004522 


010066 


000004 


2237 


004526 


012616 




2238 


004530 


000207 




2239 








2240 








2241 








2242 








2243 








2244 








2245 


004532 


113765 


001004 


2246 


004540 


032765 


040000 


2247 


004546 


001003 




2248 


004550 


004767 


000034 


2249 


004554 


000262 




2250 


004556 


000207 




2251 








2252 








2253 








2254 








2255 








2256 


004560 


113765 


001004 


2257 


004566 


113765 


001005 


2258 


004574 


032765 


002000 


22S9 


004602 


001001 




2260 


004604 


000262 




2261 


004606 


000207 




2262 








2263 








2264 








2265 








2266 


004610 


012765 


000040 


2267 


004616 


113765 


001004 


2268 


004624 


005046 




2269 


004626 


113716 


001005 


2270 


004632 


012665 


000032 


2271 


004636 


052765 


000300 


2272 


004644 


000207 




2271 









IS: 



2$: 



nov 


#17.,-(SP) 
12(SP),R1 


:SET ITERATION COUNT 


nov 


;GET LSH DIVIDEND 


nov 


10(SP).R0 


.-GET nSH DIVIDEND 


NOV 


6(SP),R2 


:GET DIVISOR 


NEG 


R2 


.-NEGATE DIVISOR 


CLC 




.-CLEAR 'C BIT IN PSW 


BR 


2$ 




ROL 


RO 


.-ROTATE nSH DIVIDEND 


nov 


R0,R3 


;SAVE IN R3 


ADD 


R2,R3 


.-SUBTRACT DIVISOR FROH HSH DIVIDEND 


BCC 


2$ 


;BRANCH IF DIVIDEND > DIVISOR 


nov 


R3,R0 


.-SAVE REHAINDER IN RO 


ROL 


R1 


;ROTATE LSH DIVIDEND 


DEC 


(SP) 


;DECREnENT ITERATION COUNT 


BNE 


IS 




TST 


(SP)* 


.-POP ITERATION COUNTER 


TST 


(SP)* 


.-POP SIGN CORRECTION 


nov 


R1,6(SP) 


.-PUSH REMAINDER ON STACK 


nov 


R0,4(SP) 


.•PUSH QUOTIENT ONTO STACK 


nov 


(SP)*,(SP) 




RTS 


PC 





000010 
000026 



.SBTTL 
SUBROUTINE TO 
CALL: nOVB 



RETURN: 
DRVAVA: 



1$: 



JSR 

novB 

BIT 
BNE 

JSR 

SEV 
RTS 



DRIVE SUBROUTINES 
CHECK IF DRIVE IS AVAILABLE 
DRIVEf.DRVNUn 
PC, DRVAVA 

'C BIT SET IF NOT AVAILABLE 
a#0RVNUn.CS2(R5) .-LOAD DRIVE # 

#TAP.0T(R5) .-CHECK If TAPE UNIT 

IS 

PC RHINIT 

;SET 'V TO INO NOT AVAIL 
PC .RETURN 



000010 
000032 
000026 



SUBROUTINE TO CHECK IF TU45 SLAVE IS AVAILABLE FOR TEST 



CALL: mVB 

novB 

JSR 

SLVAVA: NOVB 

novB 

BIT 
BNE 

SEV 

IS: RTS 



DRIVE #,a#DRVNUN 

SLAVE f.afSLVNUN 

PC. SLVAVA 

afDRVNUH.CS2(R5) 

afSLVNUN.TC(R5) 

#SPR.DT(R5) 

IS 

PC 



.-PASS DRIVE f VIA DRVNUN 
.PASS SLAVE # VIA SLVNUN 
.-CALL SUBROUTINE 
:LOAD DRIVE # 
.-AND SLAVE » 

;BRANCH IF SLAVE PRESENT 
;SET 'V TO INDICATE NO SLAVE 



000010 
000010 



000032 



.SUBROUTINE TO INITIALIZE RH CONTROLLER 
.-CALL: JSR PC, RHINIT 

RHINIT: NOV f40.CS2(R5) 

NOVB afDRVNUN,CS2(R5) 

CLR -(SP) 

NOVB afSLVNUN.(SP) 

NOV (SP)*.TC(R5) 

BIS fN0RN11.TC(R5) 

RTS PC 



.-LOAD SLAVE # INTO TC REG 



n 4 
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227A ;SUBROUTINE TO WAIT FOR DRIVE READY (DRY) 



2275 


00A6A6 


005027 






UAITRDY 


:CLR 


(PC)* 


.•CLEAR WAIT TIMER 


2276 


004650 


000000 






UAITTin 


:.UORD 


0 




2277 


00A652 


105765 


000012 




IS: 


TSTB 


DS(R5) 


.•WAIT FOR READY TO SET 


2278 


004656 


100406 








BMI 


2$ 




2279 


004660 


005267 


177764 






INC 


UAITTin 


: INCREMENT WAIT TIMER 


2280 


004664 


001372 








BNE 


1$ 


.BRANCH IF TIME HAS NOT EXPIRED 


2281 


004666 


000004 


013623 






TVPE.E 


.TIHEXP 


;TYPE 'TIME EXPIRED WAITING FOR 


2282 


004672 


000425 








BR 


99$ 


;TAKE ERROR EXIT 


2283 


004674 


032765 


002000 


00001 2 


2S: 


BIT 


#E0T,DS(R5) 


: CHECK FOR END OF TAPE 


2284 


004702 


001415 








BEQ 


3$ 


; BRANCH IF NO EOT 


2285 


004704 


000004 


012660 






TVPE.H 


.NAM 




2286 


004710 


000004 


013206 






TYPE. N. EOT 


;TYPE 'END OF TAPE' 


2287 


004714 


004767 


000032 






JSR 


PC, .REWIND 


; REWIND SLAVE 


2288 


004720 


102412 








BVS 


99$ 


.'BRANCH IF ERROR ON REWIND 


2289 


004722 


004767 


000106 






JSR 


PC, WRITE 


.IjCkfTC A AC ^ AAA 

;URlTc A RctuRD 
;SET '60' BIT 


2290 


004726 


005215 








INC 


(R5) 


2291 


004730 


004767 


177712 






JSR 


PC. UAITRDY 


;UAIT FOR READY 


2292 


004734 


000404 








BR 


99$ 


;TAKE ERROR EXIT 


2293 


004736 


032765 


040000 


000012 


3S: 


BIT 


fERR,DS(R5) 


.•CHECK ERROR EXIT 


229A 


004744 


001401 








BEQ 


100$ 




2295 


004746 


000262 






99$: 


SEV 






2296 


004750 


000207 






100$: 


RTS 


PC 





2297 

2298 : SUBROUTINE TO REUINO A UNIT (DRIVE/SLAVE COMBINATION) 

2299 .CALL NOVB DRIVE f.atORVNUH 



CZTULAO TH02 DRIVE FUNCTION TIMER 
CZTULA.Pll 07-JUN-78 17:07 

2300 
2301 
2302 
2303 
230A 

2305 00A752 004767 177632 



N 4 

MACYll 30(1046) 13-JUN-78 13:54 PAGE 52 

DRIVE SUBROUTINES SEQ 0052 

: nOVB SLAVE #,a#SLVNUn 

JSR PC, .REWIND 

•SUBROUTINE RETURNS'lO CALLER WITH SELECTED SLAVE AT 'BOT', I 'V SET IF 
;AN ERROR OCCURS. 

.REUIND:JSR PC.RHINIT jINITIALIZE CONTROLLER 



CZTULAO Tn02 DRIVE FUNCTION TIMER 
CZTULA.P11 07-JUN-78 17:07 



B 5 

MACY11 30(1046) 13-JUN-78 13:54 
DRIVE SUBROUTINES 



PAGE 53 



SEQ 0053 



2306 


004756 


004367 


000206 






JSR 


R3,THCHD 




;G0 TO TM COMMAND SUBROUTINE 


2307 


004762 


000000 








.WORD 


0 




.-BUS ADDRESS (NOT USED) 


2308 


004764 


000000 








.WORD 


0 




.-WORD COUNT (NOT USED) 


2309 


004766 


000000 








.WORD 


0 




.FRAME COUNT (NOT USED) 


2310 


004770 
0047-'2 


000006 








.WORD 


RWD 




.REWIND COMMAND 
.-SET '60* BIT 
;BRANCH IF 'BOT' SET 


2311 


005215 








INC 


(R5) 




2312 


0047/4 


032765 


000002 


000012 


1$: 


BIT 


#B0T,DS(R5) 




2313 


005002 


001005 








BNE 


2$ 






2314 


005004 


032765 


040000 


000012 




BIT 


IERR.DS(R5) 




; CHECK ERROR BIT 


2315 


005012 


001006 








BNE 


99$ 




.-BRANCH IF ERROR BIT SET 


2316 


005014 


000767 








BR 


1$ 






2317 




















2318 


005016 


032765 


020000 


000012 


2S: 


BIT 


#PIP,DS(R5) 




.-WAIT FOR TAPE MOTION TO STOP 


2319 


005024 


001374 








BNE 


2$ 




2320 


005026 


000401 








BR 


100$ 






2321 


005030 


000262 






99$: 


SEV 








2322 


005032 


000207 






100$: 


RTS 


PC 






2323 




















2324 










.•SUBROUTINE TO 


WRITE 256. WORD 


RECORD 




2325 










.-CALL: 


J3R 


PC, WRITE 






2326 
















2327 


005034 


004367 


000130 




WRITE: 


JSR 


R3,THCMD 




;G0 TO TM COMMAND SUBROUTINE 


2328 


005040 


015176 








.WORD 


WTBUF 




.-BUS ADDRESS 


2329 


005042 


177600 








.WORD 


WRDCNT 




.-WORD COUNT 


2330 


005044 


177400 








.WORD 


FRMCNT 




.-FRAME COUNT 


2331 


005046 


000060 








.WORD 


WFWD 




; WRITE FORWARD COMMAND 


2332 


005050 


000207 








RTS 


PC 






2333 




















2334 










.•SUBROUTINE TO 


READ A 256. WORD RECORD. 




2335 










;:ALL: 


JSR 


PC«READ 






2336 


















2337 


005052 


004337 


005170 




READ: 


JSR 


RS.atTMCHD 






2338 


005056 


015176 








.WORD 


RDBUF 




: ADDRESS OF READ BUFFER 


2339 


005060 


177600 








.WORD 


WRDCNT 




:2'S COMPLEMENT OF WORD COUNT 


2340 


005062 


177400 








.WORD 


FRMCNT 




;2'S COMPLEMENT OF FRAME COUNT 


2341 


005064 


000070 








.WORD 


RDFWD 




;READ FORWARD COMMAND 


2342 


005066 


000207 








RTS 


PC 






2343 


















2344 










.-SUBROUTINE TO 


INITIATE READ REVERSE COMMAND 


2345 










;CALL: 


JSR 


PC. REVRD 






2346 




















2347 


005070 


004367 


000074 




REVRD: 


JSR 


R3,TMCM0 






2348 


005074 


015576 








.WORD 


RDBUF f 256. 




.ADDRESS OF READ REVERSE BUFFER 
:2'S COMPLEMENT OF WORD COUNT 


2349 


005076 


177600 








.WORD 


WRDCNT 




2350 


005100 


177400 








.WORD 


FRMCNT 




;2'S COMPLEMENT OF FRAME COUNT 


2351 


005102 


000076 








.WORD 


RDREV 




.READ REVERSE COMMAND 


2352 


005104 


000207 








RTS 


PC 






2353 




















2354 










.SUBROUTINE TO 


SPACE FORWARD 1 


RECORD 










1 77777 

\ 1 1 ( ( I 


000006 


FUDSPC: 


MOV 


#-1,FC(R5) 




.LOAD RECORD COUNT 


2356 


005114 


012715 


000031 






MOV 


fSPCFWDO.(R5) 




;LOAD COMMAND 


2357 


005120 


004767 


177522 






JSR 


PC.WAITRDV 




:WAIT FOR READY 


2358 


005124 


000207 








RTS 


PC 




: RETURN 


2359 




















2360 










.-SUBROUTINE TO 


WRITE A RECORD 


AND BACK 


SPACE OVER THE RECORD. 


2361 


005126 


004767 


177702 




WRT.BK: 


JSR 


PC. WRITE 




; WRITE THE RECORD 
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SEQ 0054 



2362 

2363 

236A 

2365 

2366 

2367 

2368 

2369 

2370 

2371 

2372 

2373 

237A 

2375 

2376 

2377 

2378 

2379 

2380 

2381 

2382 

2383 

238A 

2385 

2386 

2387 

2388 

2389 

2390 

2391 

2392 

2393 

2394 

2395 

2396 

2397 

2398 

2399 

2400 

2401 

2402 

2403 

2404 

2405 

2406 

2407 

2408 

2409 

2410 

2411 

2412 

2413 

2414 

2415 

2416 

2417 



005132 005215 

005134 004767 177506 

005140 102412 

005142 012765 177777 000006 

005150 012715 000033 

005154 004767 177466 

005160 102402 

005162 004767 177166 

005166 000207 



005170 012365 000004 

005174 012365 000002 

005200 012365 000006 

005204 012315 

005206 000203 



005210 
005214 
005220 
005222 
005224 
005226 
005230 
005232 
005236 
005242 
005244 
005250 
005252 
005256 
005262 
005264 
005270 
005272 
005274 
005276 
005300 
005304 
005310 
005312 
005316 
005322 
005326 
005330 
005332 
005336 



016503 

012701 

000303 

006003 

006003 

006003 

006003 

042703 

052703 

110321 

016503 

000303 

042703 

052703 

110321 

016503 

006003 

006003 

006003 

006003 

042703 

052703 

110321 

016503 

042703 

052703 

110321 

105011 

000004 

000207 



000030 
001144 



177760 
000260 

000030 

1777.60 
000260 

000030 



17776C 
000260 

000030 
177760 
000260 



001144 



IS: 
2$: 



INC (R5) 

JSR PCUAITRDY 

BVS 2S 

NOV #-1.FC(R5) 

MOV #SPCREV*1 .(R5) 

JSR PC.WAITRDY 

BVS 2S 

JSR PC, DELAY 

RTS PC 



.SET 'GO* BIT 



;LOAD RECORD COUNT 
:LOAD COMMAND 



.'WAIT FOR TAPE MOTION TO STOP 



SUBROUTINE TO LOAD A COMMAND 



CALL: 



TMCMD; 



SNPT: 



JSR 
.WORD 
.UO^D 
.WORD 
.WORD 

NOV 

MOV 
MOV 
MOV 
RTS 



R3, TMCMD 
BUS ADDRESS 

WORD COUNT (2'S COMPLEMENT) 
FRAME COUNT (2'S COMPLEMENT) 
COMMAND 



(R3)«,BA(R5) 

(R3)*,WC(R5) 

(R3)*.FC(R5) 

(R3)*.(R5) 

R3 



:LOAD BUS ADDRESS 
LOAD WORD COUNT 
LOAD FRAME COUNT 
LOAD COMMAND 
RETURN 



.•SUBROUTINE TO PRINT TU45 SERIAL NUMBER 
:JSR PC«SNPT 



MOV SN(R5},R3 

MOV #0DIGITS,R1 

SWAB R3 

ROR R3 

ROR R3 

ROR R3 

ROR R3 

BIC #1 77760, R3 

BIS #260, R3 

MOVE R3,(R1)* 

MOV SN(R5).R3 

SWAB R3 

BIC #177760, R3 

BIS #260, R3 

MOVB R3,(R1)» 

MOV SN(R5),R3 

ROR R3 

ROR R3 

ROR R3 

ROR R3 

BIC #1 77760. R3 

BIS #260, R3 

MOVB R3,(R1)« 

NOV SN(R5),R3 

BIC #177760, R3 

BIS #260, R3 

MOVB R3.(R1)« 

CLRB (R1) 

TYPE.OOIGITS 

RTS PC 



:GET FIRST DIGIT 
.-FILL FIRST DIGIT 

.-GET SECOND DIGIT 



.-GET THIRD DIGIT 



.GET FOURTH DIGIT 

.-TYPE SERIAL NUMBER 
; RE TURN 
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SEO 0055 



2418 








2419 








2420 








2421 


005340 


012706 


000600 


2422 


005344 


105037 


001124 


2423 


005350 


105037 


001121 


2424 


005354 


105037 


001122 


2425 


005360 


105037 


001123 


2426 


005364 


105067 


1 73540 


2427 


005370 


012737 


000006 


2428 


005376 


012737 


000002 


2429 


005404 


005037 


001264 


2430 


005410 


000004 


001374 


2431 


005414 


000004 


012660 


2432 


005420 


000004 


012726 


2433 


005424 


004767 


175476 


2434 


005430 


004767 


175256 


2435 


005434 


013737 


001116 


2436 


005442 


013705 


001010 


2437 








2438 








2439 


005446 


000261 




2440 


005450 


005715 




2441 


005452 


103003 




2442 


005454 


000004 


013245 


2443 


005460 


000727 




2444 


005462 


012737 


003302 


2445 








2446 


005470 


105037 


001123 


2447 


005474 


012701 


001154 


2448 


005500 


012700 


000004 


2449 


005504 


005021 




2450 


005506 


005300 




2451 


005510 


001375 




2452 


005512 


000004 


012773 


2453 


005516 


004767 


175404 


2454 


005522 


012700 


001264 


2455 


005526 


122710 


000101 


2456 


005532 


001013 




2457 


005534 


110667 


173364 


2458 


005540 


012701 


001154 


2459 


005544 


012700 


000004 


2460 


005550 


012721 


177777 


2461 


005554 


005300 




2462 


005556 


001374 




2463 


005560 


000417 




2464 








2465 








2466 


005562 


122710 


000015 


2467 


005566 


001414 




2468 


005570 


121027 


000054 


2469 


005574 


001001 




2470 


005576 


105720 




2471 


005600 


112001 




2472 


005602 


042701 


177770 


2473 


005606 


112761 


177777 



000004 
000006 



001010 



.SBTTL PROGRAM INITIALIZATION 
INIT: MOV fSTKPTR.SP 

CLRB a#PRGFL6 

CLRB a#ITCNT 

CLRB a«TSTNUH 

CLRB a'ERFLG 

CLRB ASFLG 

nOV #ERRVEC*2,afERRVEC 

nOV «RTI,a#ERRVEC«2 
2S: CLR aflNBUF 

TYPE.CRLF 

TVPE.n.NAH 

TYPE. I. REG 

JSR PC. INPUT 
4S: JSR PCCNVTAO 

nOV a#0CTAL0.a«TNBASE 
SS: NOV a#TNBASE,RS 



;SET STACK PTR 
.•CLEAR PROGRAM FLAG 
.-CLEAR ITERATION COUNT 
;SET TEST # 0 
.-CLEAR ERROR FLAG 
: CLEAR ASK FLAG 

.CHECK IF 'LP* IS AVAILABLE 



TYPE TITLE 

ASK USER TO TYPE CONT BASE ADRS 
GET USER INPUT 
CONVERT ASCII TO OCTAL 
SET NEW ADDRESS 



:ROUTINE TO CHECK IF CONTROLLER (RH11) IS AVAILAA6LE 



6S: 



IS: 



SEC 




:SET 'C* IN PSU 


TST 


(R5) 


.BRANCH IF CONTROLLER AVAIL 


BCC 


6$ 




TVPE.E.NCON 




BR 


INIT 




NOV 


#ERRTRP.a#ERRVEC 


;SET ERROR TRAP VECTOR 


TO GET 


TN02 DRIVES USER 


DESIRES TO TEST 


CLRB 


a#ERFLG 


.'CLEAR ERROR FLAG 


nov 


#DRVTBL.R1 


;nARK ALL DRIVES AS NOT TO 


NOV 


«4,R0 


:BE TESTED. A '0* INDICATES 


CLR 


(RD* 


.THAT A DRIVE IS NOT TO BE 


DfeC 


RO 


.TESTED 


BNE 


IS 




TYPE,I,ORVS 




JSR 


PC INPUT 


;6ET USER INPUT 


NOV 


#INBUF,RO 




CNPB 


|f*A.(RO) 


;AN 'A' SPECIFIES ALL 


BNE 


3S 


.•DRIVES TO BE TESTED 


HOVB 


SP.PRGFLG 


.-SET FLAG TO IND ALL DRIVES 


NOV 


fORVTBL.RI 


:NARK ALL DRIVES TO BE TESTED 


NOV 


f4,R0 


:A *-1' INDICATES THAT A DRIVE 


NOV 


#-1.(Rl)* 


.-IS TO BE TESTED 


DEC 


RO 




BNE 


2S 




BR 


CHKDRV 


;G0 CHECK DRIVE AVAILABII ITY 



2S: 



;GET USER SELECTED DRIVES AND NARK EACH DRIVE SELECTED TO BE TESTED 



3S: CNPB #CR,(RO) 

BEQ CHKDRV 

CNPB (R0),#'. 

BNE 4$ 

TSTB (RO)* 

4$: NOVB (R0)*,R1 

BIC #177770.R1 

NOVB #-1,DRVTBL(R1) 



.-CHECK IF 'CONNA' 
;STEP PTR PAST 'CONNA' 



C2TULA0 


Tn02 DRIVE FUNCTION TIMER 


MACY11 


30(1046) 


E 5 
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C2TULA.P11 07-JUN-78 


1 7 • n? 




PROGRAM 


INITIALIZATION 






SEQ 0056 


2A7A 


005614 


000240 








NOP 










2A75 


005616 


000761 








BR 


3S 








2A76 






















2A77 










:ASCERTAIN THAT 


DRIVES (TH02'S) 


SPECIFIED ARE AVAILABLE 




2A78 


005620 


005000 






CHKDRV: 


CLR 


RO 




;A 0/-1 INDICATES THAT THE 




2^79 


005622 


105760 


001 1 S4 




1$: 


TSTB 


DRVTBL(RO) 




.-DRIVE IS NOT/IS TO BE TESTED 




2480 


005626 


001005 








BNE 


3S 








2A81 


005630 


005200 






2$: 


INC 


RO 








2A82 


005632 


122700 


000010 






CMPB 


#8.,R0 








2483 


005636 


001371 








BNE 


1$ 








2A84 


005640 


000421 








BR 


4$ 








248S 


005642 


110037 


001 004 




3$: 


novB 


RO.aiDRVNUn 








2486 


005646 


004737 


004S32 






JSR 


pcamvAVA 




jCHECK IF AVAILABLE 




2487 


005652 


102366 








BVC 


2S 




:'V' BIT SET INDICATES NOT AVAIL 




2488 


005654 


000004 


013312 






TVPE.E.NDRV 








2489 


005660 


116037 


001132 


013344 




novB 


DIGTAB(RO},a«E.NAVA 


;SET DRIVE # IN NESSAGE 




2490 


005666 


000004 


013344 






TVPE.E.NAVA 








2491 


005672 


110637 


001 123 






novB 


SP.af cRrLG 




:SET 'ERROR' FLAG 




2492 


005676 


105060 


001154 






CLRB 


DRVTBL(RO} 




;nARK DRIVE UNAVAILABLE 




2493 


005702 


000752 








BR 


2S 




.■CHECK NEXT DRIVE 




2494 


005704 


105737 


001123 




4$: 


TSTB 


a#ERFLG 




:G0 GET SLAVES IF NO ERROR 




2495 


005710 


001403 








BEQ 


SLAVES 








2496 


005712 


105737 


001124 






TSTB 


a#PRGFLG 




:ASK USER TO RETYPE DRIVES IF 




2497 


005716 


001664 








BEQ 


DRIVES 




;'ALL' NOT SPECIFIED 




2498 






















2499 










:R0UTINE TO GET 


SLAVES (TU45'S} 


USER 


DESIRES TO TEST 




2500 


005720 


105037 


001 123 




SLAVES: 


CLRB 


a#ERFLG 




.-CLEAR 'ERROR' FLAG 




2501 


005724 


012701 


001 164 






nov 


#SLVTBL,R1 




.-HARK ALL SLAVES (64.) AS NOT 




2502 


005730 


012700 


000040 






nov 


#32., RO 




;T0 BE TESTED. A 0 INDICATES THAT 




2503 


005734 


005021 






1$: 


CLR 


(RD* 




;A DRIVE'S SLAVE IS NOT TO BE 




2504 


005736 


005300 








DEC 


RO 




; TESTED 




2505 


005740 


001375 








BNE 


It 








2506 


005742 


005000 








CLR 


RO 




;R0 - DRIVE f FOR SLAVES 




2507 


005744 


012701 


001164 






nov 


#SLVTBL,R1 




;R1 POINTS TO DRIVE'S SLAVE 




2508 


005750 


105760 


001154 




2$: 


TSTB 


DRVT6L(R0) 




:IF DRIVE IS TO BE TESTED 




2509 


005754 


001007 








BNE 


4$ 




:G0 TO 4$ OTHERWISE 




2510 


005756 


062701 


00001 0 




3$: 


ADD 


«8.,R1 




.STEP SLAVE PTR TO NEXT DRIVE'S 




2511 


005762 


005200 








INC 


RO 




.•SLAVES AND INCREMENT DRIVE # 




2512 


005764 


122700 


000010 

www 1 W 






CHPB 


#8.,R0 




.•CHECK ALL DRIVES 




2513 


005770 


001 367 








BNE 


2$ 




;AND WHEN ALL DRIVES CHECKED 




2514 


005772 


000454 








BR 


CHKSLV 




;60 CHECK SLAVE AVAILABILITY 




2515 
2516 


005774 


105737 


001124 




4S: 


TSTB 


afPRGFLG 




.-BRANCH IF USER SELECTED ALL 




2517 


006000 


001020 








BNE 


5S 




.-DRIVES 




2518 


006002 


110067 


172776 






novB 


RO.DRVNUn 




;GET DRIVE # 




2519 


006006 


116037 


001132 


013054 




novB 


DIGTAB(RO),afI.DRV 


.-PREPARE USER ACTION nESSAGE 




2520 


006014 


000004 


01303^ 






TYPE.I.SLVS 








2521 


006020 


004767 


175102 






JSR 


PC. INPUT 




;GET USER INPUT 




2522 


006024 


012703 


001264 






NOV 


fINBUF,R3 




;SET PTR TO USER INPUT 




2523 


006030 


122710 


000101 

www f w ■ 






CHPB 


#'A,(RO} 




.-BRANCH IF USER DOES NOT WANT 




2524 


006034 


001015 








BNE 


71 




.-'ALL' SLAVES 




2525 


006036 


110637 


001124 






novB 


SP,a#PRGFLG 




.-SET 'ALL' INDICATOR 




2526 


006042 


012701 


001164 

Vw 1 1 




5$: 


nov 


#SLVTBL,R1 




.-nARK ALL SLAVES FOR ALL 




2527 


006046 


012700 


000040 






NOV 


#32.,R0 




;DRIVES AS TO BE TESTED 




2528 


006052 


012721 






6$: 


nov 


#-1.(R1)* 








2529 


006056 


005300 








DEC 


RO 
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SEQ 0057 



2530 


006060 


001374 








BNE 


6S 




2531 


006062 


105737 


001124 






TSTB 


a#PRGFLG ;BRANCH IF ALL WAS SELECTED 


2532 


006066 


001016 








BNE 


CHKSLV 




2533 


















2534 


006070 


122713 


000015 




7$: 


CHPB 


#CR,(R3) 


GET USER SELECTED SLAVES FOR 


2535 


006074 


001730 








BEQ 


3» 


DRIVE 


2536 


006076 


121327 


000054 






CHPB 


(R3),#', 


STEP PTR PAST 'COHHA* 


2537 


006102 


001001 








BNE 


8S 




2538 


006104 


105723 








TSTB 


(R3)* 




2539 


006106 


112304 






8$: 


novB 


(R3)*.R4 ;AND HARK SELECED SLAVE 


2540 


006110 


042704 


177770 






BIC 


#177770, R4 V ;AS TO BE TESTED 


2541 


006114 


060104 








ADD 


R1,R4 




2542 


006116 


112714 


}77777 






novB 


#-1,(R4) 




2543 


006122 


000762 








BR 


7$ 




2544 


















2545 










.•ASCERTAIN THAT 


SLAVES (TU45'S) SELECTED 


ARE AVAILABLE 


2546 


006124 


005000 






CHKSLV 


: CLR 


RO 


■RO WILL CONTAIN THE DRIVE » 


2547 


006126 


005001 








CLR 


R1 


;AND R1 THE SLAVE » 


2548 


006130 


012702 


001164 






nov 


#SLVTBL,R2 


;SET PTR TO SLAVE TABLE 


2549 


006134 


105760 


001154 




IS: 


TSTB 


DRVTBL(RO) 


;BRANCH IF DRIVE SELECTED 


2550 


006140 


001007 








BNE 


3$ 


;l AVAILABLE FOR TEST 


2551 


006142 


005200 






2$: 


INC 


RO 


; INCREMENT DRIVE M 


2552 


006144 


062702 


000010 






ADD 


#8..R2 


;STEP SLAVE PTR TO NEXT DRIVE'S 


2553 


006150 


022700 


000010 






CHP 


I8.,R0 


.-SLAVES. BRANCH TO IS IF NOT ALL 


2554 


006154 


001367 








BNE 


1$ 


;DRIVES CHECKED OTHERWISE EXIT 


2555 


006156 


000434 








BR 


7$ 




2556 


















2557 


006160 


005001 






3$: 


CLR 


R1 


;SET SLAVE # 0 


2558 


006162 


105712 






4$: 


TSTB 


(R2> 


.■BRANCH IF DRIVE'S SLAVE IS SEL- 


2559 


006164 


001006 








BNE 


6$ 


;ECTEO FOR TEST 


2560 


006166 


005201 






5$: 


INC 


R1 


; INCREMENT SLAVE # 


2561 


006170 


005202 








INC 


R2 


.•STEP PTR TO NEXT SLAVE 


2562 


006172 


022701 


000010 






CHP 


#8..R1 


.•GO TO 4S IF ALL SLAVES NOT 


2563 


006176 


001371 








BNE 


4$ 


: CHECKED 


2564 


006200 


000760 








BR 


2$ 


.•OTHERWISE GO TO 2S ABOVE 


2565 


















2566 


006202 


110037 


001004 




6$: 


novB 


RO,a#oRVNun 


:PASS DRIVE ( SLAVE » 


2567 


006206 


110137 


001005 






novB 


Ri.atSLVNun 




2568 


006212 


004737 


004560 






JSR 


PC,a#SLVAVA 


:AND CHECK IF AVAILABLE 


2569 


006216 


102363 








BVC 


5S 


;*V' BIT SET ON RETURN IND- 


2570 


006220 


116037 


001132 


013334 




novB 


DI6TAB(R0},a#E.DRV 


:ICATES ERROR. PREPARE ERROR 
.-MESSAGE 


2571 


006226 


116137 


001132 


013344 




novB 


DI6TAB(R1),a#E.NAVA 


2572 


006234 


000004 


013326 






TYPE.E.NSLV 




2573 


006240 


110637 


001123 






novB 


SP,a#ERFLG 


;SET ERROR INDICATOR 


2574 


006244 


105012 








CLRB 


(R2} 


.-CLEAR SLAVE TABLE ENTRY 


2575 


006246 


000747 








BR 


5$ 


;GET NEXT SLAVE 


2576 


















2577 


006250 


105737 


001123 




7$: 


TSTB 


a#ERFLG 


: BRANCH IF NO ERROR 


2578 


006254 


001403 








BEQ 


100$ 


.•BRANCH IF NOT 'ALL* 


2579 


006256 


105737 


001124 






TSTB 


a#PRGFLG 


2580 


006262 


001616 








BEQ 


SLAVES 


.-ASK USER TO RETYPE SLAVES 


2581 


0062^4 


012737 


003302 


000004 


100$: 


NOV 


#ERRTRP,a#ERRVEC 




2582 
















2583 










;SCAN 


DIVE AND 


SLAVE TABLE FOR DRIVE/SLAVE COMBINATION TO TEST 


2584 


006272 


105037 


001004 




CLRB 


a#ORVNUn 


:SET DRIVE AND SLAVE » 0 


2585 


006276 


105037 


001005 






CLRB 


a#SLVNun 
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2586 006302 012737 00116A 001006 NOV #SLVTBL ,a#SLVPl R ;SET PTR TO SLAVE TABLE 

2587 006310 105037 001125 CLRB a#UNTFNO .-CLEAR 'UNIT FOUND* IND. 
2588 

2589 0063U 113700 00100A BEGIN: MOVB a«DRVNUn,RO :GET DRIVE » 

2590 006320 113701 001005 HOVB a#SLVNUn,Rl .-AND SLAVE # 
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2591 006324 013^02 001006 MOV 

2592 006330 105760 001154 1$: TSTB 

2593 006334 001011 BNE 

2594 006336 005001 CLR 

2595 006340 062702 000010 ADO 

2596 006344 005200 2S: INC 

2597 006346 022700 000010 CHP 

2598 006352 001366 BNE 

2599 006354 000137 012266 JHP 
2600 

2601 006360 105712 3S: TSTB 

2602 006362 001007 BNE 

2603 006364 005202 INC 

2604 006366 005201 INC 

2605 006370 122701 000010 CHPB 

2606 006374 001371 BNE 

2607 006376 005001 CLR 

2608 006400 000761 BR 
2609 

2610 006402 110637 001125 4S: HOVB 

2611 006406 110037 001004 HOVB 



H 5 
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ZATION SEO 0059 

a#SLVPTR.R2 ;GET SLAVE PTR 

ORVTBL(RO) .-BRANCH IF DRIVE AVAIL TO TEST 

3S 

R1 .CLEAR SLAVE i 

«8..R2 .-AND STEP PTR TO NEXT DRIVE'S 

RO .-SLAVES AND INCREMENT DRIVE # 

#8.,R0 .-EXIT TEST IF ALL DRIVES 

IS .-CHECKED OTHERWISE CONTINUE 

ilEND .-SCAN FOR NEXT 'UNIT' 

(R2) .-BRANCH IF SLAVE ON DRIVE IS 

4S .AVAILABLE THERWISE STEP 

R2 ;PTR TO NEXT SLAVE 

R1 .-INCREMENT SLAVE » 

#8..R1 .-UNTIL ALL SLAVES CHECKED 

3S .-WHEN ALL SLAVES CHECKED 

Rl ;SET SL/^VE f 0 

2$ :AND CONTINUE SCAN 

SP.a#UNTFND ; INDICATE THAT A 'UNIT' IS FOUND 

RO.amvNun ;set drive 3 
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SEQ 0060 



2612 

2613 

2614 

2615 

2616 

2617 

2618 

2619 

2620 

2621 

2622 

2623 

2624 

2625 

2626 

2627 

2628 

2629 

2630 

2631 

2632 

2633 

2634 

2635 

2636 

2637 

2638 

2639 

2640 

2641 

2642 

2643 

2644 

2645 

2646 

2647 

2648 

2649 

2650 

2651 

2652 

2653 

2654 

2655 

2656 

2657 

2658 

2659 

2660 

2661 

2662 

2663 

2664 

2665 

2666 

2667 



006412 
006416 

006422 
006426 
006430 

006436 
006442 
006446 
006452 
006456 
006462 
006464 
006470 
006472 
006476 

006500 
006504 
006510 
006514 
006520 
006524 
006526 
006532 
006534 
006540 

006540 
006546 
006552 
006560 
006566 
006574 
006602 
006604 
006612 
006616 
006622 
006626 
006632 
006640 
006642 
006646 
006650 
006654 
006660 
006664 
006666 



110137 
010237 

105737 
001044 
112767 

105057 
000004 
004767 
012703 
122713 
001406 
122713 
001354 
111337 
000420 

105037 
000004 
004767 
012703 
122713 
001405 
122713 
001362 
111337 



001005 
001006 

001130 

000001 172472 

001124 
013114 
174454 
001264 
000060 

000061 

001124 



001127 
013155 
174412 
001264 
000060 

000061 

001127 



51: 



NOVB 

nov 

TSTB 
BNE 

novB 



Ri.afSLVNun 

R2,a«SLVPTR 

a#ASFLG 
7$ 

#1.ASFLG 



;SET SLAVE » 
.-SAVE SLAVE PTR 



CLRB atPRGFLG 
TYPE. I. SKEW 



6t: 



PC INPUT 
#INBUF,R3 
#'0.(R3) 
6S 

#'1.(R3) 
5t 

(R3),a#PRGFLG 
7$ 

amzFLG 



7$: 



JSR 

nov 
cnPB 

BEQ 
CHPB 
BNE 

novB 

BR 

CLRB 
TYPE.l.NRZ 

JSR PC. INPUT 

nov fINBUF,R3 

CHPB f*0.(R3) 

BEQ 7$ 

CNPB f*l.(R3) 

BNE 6$ 

nOVB (R3),afNRZFLG 



.CLEAR PROGRAM INDICATOR 

;ASK USER IF HE WANTS TO RUN SKEW TESTS 

:GET USER INPUT 
;GET REPLY 
;BRA»'CH IF 'NO' (0) 

;CHECK IF 'YES' (1) 
.•NEITHER SO ASK AGAIN 
.SET INDICATOR 



.•CLEAR NRZ INDICATOR 

.ASK USER IF DRIVE 'NRZ' ONLY 

;GET USER INPUT 
.GET REPLY 
.•BRANCH IF 'NO' (0) 



.•CHECK IF 'YES' (1) 
:ASK AGAIN IF NEITHER 
;SET INDICATOR 



052737 


0001 00 


177560 


TYPHDR: 


BIS 


flOO.afTKS 


;SET KEYBOARD IE BIT 




000004 


013674 






TYPE.L.HORl 






116037 


001132 


014054 




NOVB 


OIGTAB(RO).a#L.DRV 


;SET DRIVE # 




116137 


001132 


014066 




HOVB 


DIGTAB(R1).afL.SLV 
«*9,afL.CHAN 


:AND SLAVE # 




112737 


000071 


01 4071 




NOVB 


:6ET SLAVES CHANNEL TYPE 




032765 


010000 


000026 




BIT 


fCH7«DT(R5) 






001403 








BEQ 


1$ 






112737 


000067 


014071 




HOVB 


#'7.afL.CHAN 


:SET 7 CHANNEL 




000004 


014007 




IS: 


TYPE.L.HDR2 






004767 


175766 






JSR 


PCRHINIT 


;INIT RH 




004767 


176362 






JSR 


PC.SNPT ;G0 PRINT SERIAL NUMBER 




000004 


014110 






TYPE,L.HDR3 






012737 


006672 


001002 




NOV 


f TST001 .affSCPADR 


.-SET 'SCOPE' ADDRESS FOR FIRST 


010500 








NOV 


R5.R0 






062700 


000006 






ADD 


fFC.RO 


:R0 CONTAINS ADDRESS OF FC 


REG 


010501 








NOV 


R5.R1 






062701 


000012 






ADD 


fOS.RI 


:R1 CONTAINS ADDRESS OF DS 


REG 


012703 


004060 






NOV 


fTinER,R3 


:SET JUNP ADDRESS TO TIMER 




105737 


001124 






TSTB 


a«PRGFL6 


:BRANCH IF NOT SKEW TESTS 




001402 








BEQ 


TSTOOl 






000137 


012314 






JNP 
.SBTTL 


afSKEUTST 

START OF TESTS 







TEST 001 - WRITE FROM BOT 

THIS TEST WILL MEASURE ACCELERATION DELAY REQUIRED TO 
MOVE THE TAPE APPROXIMATELY SEVEN (7) INCHES FORWARD 
FRON DEAD STOP BEFORE STARTING TO TRANSFER DATA. 
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SEQ 006' 



2668 








.•THIS 


TEST MEASURES TIME FROM 'G0'=1 


TO •ACCL'=0. 


2669 


006672 


112737 


000001 001122 


TST001 


: MOVB 


ff1,a#TSTNUM 


;SET TEST # 


2670 


006700 


012702 


006724 




MOV 


#1S.R2 


;SET RETURN PC FROM TIMER 


2671 


006704 


004767 


176042 




JSR 


PCREUIND 


.■REWIND SLAVE 


2672 


006710 


102420 






BVS 


99t 


.•BRANCH IF ERROR ON REWIND 


2673 


006712 


004767 


176116 




JSR 


PC. WRITE 


;G0 SETUP WRITE COMMAND 


2674 


006716 


004767 


175046 




JSR 


PC.TIMON 


.■TURN TIMER ON 


2675 


006722 


005215 






INC 


(R5) 


;SET '60' BIT 


2676 
















2677 


006724 


005765 


00C032 


1$: 


TST 


TC(R5) 


;BRANCH WHEN 'ACCL'-O 


2678 


006730 


100002 






BPL 


2S 


;G0 TO TIMER t RETURN VIA R2 


2679 


006732 


000163 


004060 




JMP 


TIMER(R3) 


2680 
















2681 


006736 


004767 


175704 


2%: 


JSR 


PC.UAITROY 


:WAIT FOR COMMAND TO FINISH 


2682 


006742 


102403 






BVS 


99S 


.•BRANCH IF ERROR 


2683 


006744 


004767 


175146 




JSR 


PC, TIMOR 


.-GO CHECK TIME 


2684 


006750 


000401 






BR 


100S 




2685 


006752 


104400 




99S: 


HLT 






2686 


006754 


104000 




lOOS: 


SCOPE 







2687 
2688 
2689 
2690 
2691 
2692 
2693 
2694 
2695 
2696 
2697 
2698 
2699 
2700 
2701 
2702 
2703 
2704 
2705 
2706 
2707 
2708 
2709 
2710 
2711 
2712 
2713 
2714 
2715 
2716 
2717 
2718 
2719 
2720 
2721 
2722 
2721 



006756 
006764 
006770 
006774 
007000 



112737 
004767 
012702 
004767 
005215 



000002 
1 76044 
007002 
174770 



001122 TST002: 



;TEST 002 - WRITE START 
:THIS TST MEASURES TIME FROM 'G0'=1 



MOVB 

JSR 

MOV 

JSR 

INC 



f2,8fTSTNUH 

PC, WRITE 
#1S.R2 
PC.TIMON 
(R5) 



TO •ACCL'=0. 

;SET TEST « 2 

: INITIATE WRITE COMMAND 

.-SET RETURN PC FROM TIMER 

.SET 'GO' BIT 



007002 


005765 


000032 


IS: 


TST 


TC(R5) 


.BRANCH WHEN 'ACCL'=0 


007006 


100002 






BPL 


2S 




007010 


000163 


004060 




JMP 


TIMER(R3) 


:G0 TO TIMER t RETURN VIA R2 


007014 


004767 


1 75626 


2$: 


JSR 


PC.WAITROY 


.-WAIT FOR READY 


007020 


102403 






BVS 


99S 


:BRANCH IF ERROR 


007022 


004767 


175070 




JSR 


PCTIMOK 


:60 CHECK TIME RECORDED 


007026 


000401 






BR 


100$ 


.-EXIT VIA SCOPE 


007030 


104400 




99»: 


HLT 




; REPORT ERROR 


007032 


104000 




100S: 


SCOPE 












.•TEST 


003- WRITE SHUTDOWN 










;THIS 


TEST MEASURES TIME fROH 


•FC RE6'=0 TO 'SWDN'rl. 


007034 


112737 


000003 001122 


TST003 


: MOVB 


ffS.atTSTNUH 


;SET TEST#3 


007042 


004767 


175766 




JSR 


PCURITE 


INITIATE WRITE COMMAND 


007046 


005215 






INC 


(R5) 


.SET '60' BIT 


007050 


005710 




IS: 


TST 


(RO) 


.•BRANCH WHEN WRITING FINISHED 


007052 


001404 






BEQ 


2$ 




007054 


032711 


040000 




BIT 


#ERR.(R1) 


.•MONITOR ERROR BIT 


007060 


001017 






BNE 


99$ 




007062 


000772 






BR 


U 




007064 






2S: 








007064 


004767 


174700 




JSR 


PC.TIMON 


;TURN TIMER ON 


007070 


010702 






MOV 


PC,R2 


.•LOAD RETURN PC FROM TIMER 


007072 


032711 


000020 


3S: 


BIT 


«SDWN.(R1) 


.-BRANCH WHEN DS <SDWN> SETS 
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SEQ 0062 



272A 


007076 


001002 








BNE 


4$ 




:G0 TO TIMER I RETURN VIA R2 


2725 


007100 


000163 


004060 






JHP 


TIMER(R3) 




2726 




















2727 


007104 


004767 


175536 




4S: 


JSR 


PC.UAITROY 




.-WAIT FOR READY 


2728 


007110 


102403 








BVS 


99$ 






2729 


007112 


004767 


175000 




• 


JSR 


PC.TIMOK 




;60 CHECK TIME RECORDED 


2730 


007116 


000401 








BR 


100$ 






2731 


007120 


104400 






99$: 


HLT 






; REPORT ERROR 


2732 


007122 


104000 






100$: 


SCOPE 








2733 




















273A 










.TEST 


004 - WRITE SETTLEDOUN 






2735 










.•THIS 


TEST MEASURES TIME FROM 


•SUDN's 


1 TO 'SyDN'=0. 


2736 


007124 


112737 


000004 


001122 


TST004 


: nOVB 


f4.a#TSTNUM 






2737 


007132 


004767 


175676 






JSR 


PC.URITE 






2738 


007136 


005215 








INC 


(R5) 




;SET '60' BIT 


2739 




















2740 


007140 


005710 






1$: 


TST 


(RO) 




.•BRANCH WHEN WRITING FINISHED 


2741 


007142 


001404 








BEQ 


2$ 






2742 


007144 


032711 


040000 






BIT 


#ERR,(R1) 




.CHECK ERROR BIT 


2743 


007150 


001026 








BNE 


99$ 






2744 


007152 


000772 








BR 


1$ 






2745 


















.•WAIT FOR ASSERTION OF 'SOWN' 


2746 


0071 54 


032711 


000020 




2$: 


BIT 


#SDyN,(R1) 




2747 


007160 


001004 








BNE 


3S 






2748 


007162 


032711 


040000 






BIT 


fERR,(R1) 




.•MONITOR ERROR BIT 


2749 


007166 


001017 








BNE 


99$ 






2750 


007170 


000771 








BR 


2$ 






2751 




















2752 


007172 








3$: 










2753 


007172 


004767 


174572 






JSR 


PCTIMON 




.•TURN TIMER ON 


2754 


0071 76 


010702 








mv 


PC.R2 




;SET RETURN PC FROM TIMER 


2755 


007200 


032711 


000020 






BIT 


#SDUN,(R1) 




: BRANCH WHEN SWDN CLEARS 


2756 


007204 


001402 








BEQ 


5$ 




;G0 TO TIMER t RETURN VIA R2 


2757 


007206 


000163 


004060 






jnp 


TINER<R3) 




2758 




















2759 


007212 


004767 


175430 




5$: 


JSR 


PC.UAITRDY 




:WAIT FOR READY 


2760 


007216 


102403 








BVS 


99$ 






2761 


007220 


004767 


174672 






JSR 


PCTIMOK 






2762 


007224 


000401 








BR 


100$ 






2763 




















2764 


007226 


104400 






99$: 


HLT 








2765 


007230 


104000 






100$: 


SCOPE 








2766 




















2767 










;TEST 


005 - READ FROM BOT 






2768 










;THIS 


TEST MEASURES TINE FROM 


•G0'=1 


TO 'ACCL'sO. 


2769 


007232 


112737 


000005 


001122 


TST005: HOVB 


fS.afTSTNUM 




;SET TEST #5 


2770 


007240 


004767 


175506 






JSR 


PC, .REWIND 




; REWIND SLAVE 


2771 


007244 


102422 








BVS 


99$ 




.•BRANCH IF ERROR ON REWIND 


2772 


007246 


004767 


175600 






JSR 


PC. READ 




.-SET RETURN PC FROM TIMER 


2773 


007252 


012702 


007264 






MOV 


#1$.R2 




2774 


007256 


004767 


174506 






JSR 


PC.TIMON 




:TURN TIMER ON 
;SET '60' BIT 


2775 


007262 


005215 








INC 


(R5) 




2776 


















.•BRANCH WHEN 'ACCL' RESETS 


2777 


007264 


005765 


000032 




1$: 


TST 


TC{R5) 




2778 


007270 


100002 








BPL 


2$ 




:G0 TO TIMER ft RETURN VIA R2 


2779 


007272 


000163 


004060 






JMP 


TIMER(R3) 





CZTULAO 


TH02 DRIVE FUNCTION TIMER 


MACY11 


30(1046) 


L 5 

13-JUN-78 13:54 


PAGE 


63 


SEO 0063 


r7Tlll A 


P11 07-JUN-78 


17:07 




START 


OF TESTS 


































£ r O 1 


OQfCfO 


AA/ 7^7 


175344 




2t- 


JSR 


PCWAITRDV 






■WAIT FOR READY 




?78? 
C ■ 9C 












BVS 


99S 






-BRANCH IF ERROR 




c • 


00 f 304 


AAy 7^ 7 

004 ror 


174606 






JSR 


PC.TIHOK 






-CHECK RECORDED TIME 




77HL 


AA7H A 

007310 


AAA/ A1 

000401 








BR 

on 


lOOS 




































AA711 0 

OOr Jl C 


1 Ay / AA 








HLT 












?7R7 


OOf i\H 


1 (\LI\f\f\ 

IUhUUU 






100S • 

1 WW* • 


SCOPE 












77RII 
C ' oo 


































« 1 C d 1 


006 - READ START 










7790 










- THIS 


TEST MEASURES TINE FROM 


•60' 


= 1 TO 


•ACCL'=0. 




7791 


v\jf J 1 0 


1 1 57X7 

1 1 c r jr 


000006 


001122 


TST006 


: nOVB 


#6,ifTSTNUN 






:SET TEST #6 




7797 


{jyjfDCH 


AAA 7A7 
0U«« r 0 r 


175576 






JSR 


PCURT.BK 






-WRITE A RECORD ft BACK SPACE 




779^ 


nmxxn 


1Uc<icc 








BVS 


99$ 










779^ 


33c 


AA/7/L7 


175514 






JSR 


PCREAD 










779S 


00 1 330 


U 1 cr Uc 


007350 






nov 


#1$,R2 






:SET RETURN PC FROM TIMER 




779ft 


UUr 3*ic 


OOA7A7 
UUHrOr 


174422 






JSR 


PCTINON 






■TURN TIMER ON 




7797 


UUf JH6 










INC 


(R5) 






•SET 'GO* BIT 




779R 
























7799 




UU7r 05 


000032 




11- 


TST 


TC(RS) 






■BRANCH WHEN 'ACCL* RESETS 




7800 

COW 




100005 








BPL 


2$ 










COv 1 


UUr J JO 


0001 AX 
UUU 10 J 


004060 






JHP 


TinER(R3) 






-GO TO TIMER ft RETURN VIA R2 




cove 
























COv J 


l\Jf jOC 


0047ft7 
UUH f O r 


175260 




2t- 


JSR 


PCUAITROY 










780& 


UUr 300 


105A0X 
1 UctUj 








BVS 


99S 










780S 

C Ov J 


UUf J« U 


OOA7A7 
UUh 'Or 


174522 






JSR 


PC.TIHOK 










780ft 

covw 




000A01 
UUUhU I 








BR 


lOOS 










7807 

c ow ■ 
























7808 

COVO 


UUr 3r 0 


1 OAAOO 
1 UhhUU 






99S' 


HLT 












COvT 


nn7Ann 

UUr "lUU 


10A000 
IUhUUU 






1001' 

1 WW* • 


SCOPE 












pAin 

CO 1 u 
























PA11 

CO 1 1 










.-TEST 


007 - READ SHUTDOWN 










PAIP 

CO 1 c 










.-THIS TEST HEASURES TINE FROM 


•FC 


RE6' = 

•» w w 


FRAME COUNT TO 'SWDN'=1. 




CO 1 J 


nn7An9 

Wf^Vc 


1 1 77X7 
1 1 c r jr 


000007 


001122 


TST007: NOVB 


#7,afTSTNUN 






;SET TEST #7 




7814 

CO 1 *t 


WIH lU 


UUHr Or 


175512 






JSR 


PC.URT.BK 






■WRITE A RECORD ft BACK SPACE 




781^ 

CO 1 J 


UU r 1 H 


1074X0 

1 UCH JU 








BVS 


99$ 






; BRANCH IF ERROR 




781ft 

C O 1 V 


UUr 1 1 O 


00A7A7 
UUt r O r 


175430 






JSR 


PCREAD 










7817 

CO 1 1 


nn7477 


00S71 S 
UU3C 1 J 








INC 


(R5) 






•SET '60* BIT 




7818 

CO 1 o 
























7819 

CO 1 T 


UU r HC** 


077710 
ucc r 1 u 


000400 




1$: 


CUP 


f-FRPICNT.(RO) 






:WAIT FOR FRAME COUNT TO 




7870 

cocw 




001 AOA 
UU IHVH 








BEQ 


2$ 






:= » OF FRAMES WRITTEN 




2871 

cue ■ 


UUr<i jc 


0X771 1 
Ujcr 1 1 


040000 






BIT 


#ERR.(R1) 






; MONITOR ERROR BIT 




?8?2 


0074 Xft 
UU r JO 


00101 7 
UU 1 U 1 r 








BNE 


99$ 










COC J 


007440 
UUr H*iu 


000771 
UUUr r 1 








BR 


1$ 










7874 

COC*f 
























787^ 


007447 
UUr •i*ic 








2$: 














787ft 
coco 


007447 
UUr 


004 7ft 7 
UU*ir or 


174322 






JSR 


PC.TIHON 






.-TURN TIMER ON 




7877 
COC • 


n07£4A 
UUr •iio 


010707 
U lUr Uc 








nov 


PC.R2 






;SET RETURN PC FROM TIMER 




7878 
coco 


0074^0 
UUr PU 


0X771 1 
VjC I 1 1 


000020 






BIT 


ISDyN,(R1) 






.'BRANCH WHEN SDWN SETS 




2829 

COC T 


007454 


001002 








BNE 


3$ 






:G0 TO TIMER ft RETURN VIA R2 




7830 


0074 S6 


000163 


004060 






JNP 


TinER(R3) 








2811 

CO J 1 
























28?2 
co^c 


007462 


004767 


175160 




3S: 


JSR 


PCUAITRDY 










2833 


007466 


102403 








BVS 


99$ 










2834 


007470 


004767 


174422 






JSR 


PCTIHOK 










78^S 

CO J J 


007474 


000401 








BR 


100$ 











CZTULAO 


TH02 DRIVE FUNCTION TIMER 


HACYll 


30(10A6) 


n 5 

13-JUN-78 13 


:54 PAGE 


64 


SEO 006^ 


r 7TIII A 


P11 07-JUN-78 


17:07 




^TART 

J 1 nn 1 


OF TESTS 








CO 






















cO J r 


007^76 


« A/ / AA 

10h400 






99t* 


HLT 






•REPORT ERROR 




CO JO 


AA7C AA 

007500 


1 A/ AAA 








SCOPE 










CO J T 
































;TEST 


010 - READ SETTLEDOUN 








COH 1 










.•THIS 


TEST MEASURES TIME FROM 


•SUDN'sl 

^#wi/r^ 1 


TO 'SUDN'sO 




CO**c 




\\cfjf 


000010 


coil 22 


TST010: nOVB 


/nO.afTSTNUN 




;SET TEST #10 




CO*t J 


AA7Q1 A 


A1 07n5 


007566 






nov 


#4S,R2 




•SET RETURN PC FROM TIMER 








AA/, 7iL7 


175406 






JSR 


PCURT.BK 




'WRITE A RECORD t BACK SPACE 




CO"t > 




1Uc*i j6 








BVS 


99S 








cO*tw 




AA/,7C7 


175324 






JSR 


PC, READ 










UUr 3cO 


UU3c 1 J 








INC 


(R5) 




•SET 'GO' BIT 




cOHO 
































IS: 


TSTB 


(R1) 




•WAIT FOR READY 




PASO 




1 (\f\L(\L 








an I 


2S 




: BRANCH WHEN SET 




C 1 




Ujcr 1 1 


040000 






BIT 


«ERR,(R1) 




.'CHECK ERROR BIT 






AATC/ A 


AA1 n3A 
UU 1 UcO 








BNE 


99S 








CO J J 




UUUr 1 C 








BR 


IS 








PAS4 

CO 


















.'WAIT FOR ASSERTION OF 'SDWN' 




PASS 


nm^LL 
uur 3*»H 


VJCf 1 1 


000020 




2t: 


BIT 


fSDUN,(R1) 






PAS6 


UUr 


AAI AA/, 

UU 1 UUh 








BNE 


3S 








PAS7 


UUr j^c 


\JJCft 1 


040000 






BIT 


#ERR,(R1) 




.•MONITOR ERROR BIT 




?8S8 


WfjJO 


Oni f\17 
UU 1 U 1 r 








BNE 


99J 








CO<#7 




(\f\n77^ 

UUUr r 1 








BR 


2S 








coou 






















cOO 1 


UUr jOc 








3$: 












COOC 


UUr jOC 


UUH r Or 


174202 






JSR 


PCTINON 




•TURN TIMER ON 




COWiJ 


nn7CAA 


Ujcr Oj 


000020 


000012 


4S: 


BIT 


«SDUN,0S(R5) 




'WAIT FOR NEGATION OF SDWN 






nn7S7A 

UU f Jf^ 


UU 1 *»Uc 








BEQ 


5S 








PSAS 


nn7S7A 

UUr 3 r O 


UUw 1 Oj 


004060 






JHP 


TINER(R3) 




'GO TO TIMER ( RETURN VIA R2 


























cov> 


UUr OUC 


UU1 r Or 


175040 




5S: 


JSR 


PCUAITROY 










Uwr Ol/O 


1 UcHU J 








BVS 


99S 










nn7Aift 

UU r O 1 w 


UU1 r O r 


174302 






JSR 


PCTIBOK 








PA70 

CO* V 


UUr 0 1*1 










BR 


100S 








C V r 1 






















2872 


r O 1 0 


1 UHHUU 






99$: 


HLT 










2873 


Ul' cU 


1 U1UUU 






100S: 


SCOPE 










287A 

CO* 






















COr ^ 






















COr w 










;TEST 


011-REAO 


REVERSE START 








PA77 

COr r 










.■THIS 


TEST MEASURES TIRE PROR 


•GO'sl TO •ACCL'=0. 




COr O 


UUr Occ 




000011 


001122 


TST011 


: ROVB 


flUaiTSTNUn 




:SET RETURN PC FROM TIMER 




2879 

CO r 7 


UUr OJU 


U Icr Uc 


007666 






mv 


#tS,R2 






2880 


UUr 


UU1 r Or 


175174 






JSR 


PC. WRITE 




.'WRITE A RECORD 




2881 

COO 1 


007640 


005215 








INC 


(R5) 




;SET '60' BIT 




COOC 


0076*2 


004767 


17500C 






JSR 


PC.WAITROY 








coo J 


UUr 0*lO 


1 vc'tcc 








BVS 


99S 




.'WAIT FOR TAPE MOTION TO STOP 




PAf 4 

coc ^ 


UUr 0?U 


Art/ 7<t7 
UU1 r Or 


174500 






JSR 


PC. DELAY 






2885 


007654 


004767 


175210 






JSR 


PC.RtVRO 








2866 


007660 


004767 


174104 






JSR 


PC.TinON 




.'TURN TIMER ON 




2887 
coo* 

2888 


UU r 00*> 


UV3c 1 7 








INC 


(R5) 




;SET "GO" BIT 




cooo 
2889 


007666 


005765 


000032 




IS: 


TST 


TC{R5) 




.-BRANCH WHEN 'ACCL' = 0 




2890 


007672 


100002 








BPL 


2S 




:G0 TO TIMER I RETURN VIA R2 




2891 

COT 1 


007674 


000163 


004060 






JHP 


TinER(R3) 







C2TULA0 


Tn02 DRIVE FUNCTION TIMER 


f 7TIII A 


Pll 07-JUN-78 


17:07 




COtC 










COT J 


UOf f UU 


UU^ f Or 


174742 






UUf f U«i 


1 Uc*iU3 






CQrJ 


UUr r Uo 


AA/.7A7 
UU«I f Of 


174204 






OOf f 1 c 


AAA/. A1 






C W 7 r 










7898 

C070 


UO f f 1 


1 A/. /. AA 






7899 

C W 7 7 


OUf .' 10 


1 A/. AAA 






7900 

C 7 W 










C 7U 1 




















C 7V J 


UUr f c\J 


1 1 c r J r 


000012 


001 




n0777A 


ni 7707 
U 1 c f Uc 


007776 




C 7V J 


0077X7 
UUr r 


UUS f Of 


175076 




790& 




nn^7i ^ 






7907 

C TV r 




t\t\L 7A7 
UU*i f 0 f 


174702 




C 7VW 


AA77/,/, 


1 Uc'ic r 






7909 


Wf r*»0 


UU*t f Of 


175116 




7910 

C 7 1 V 


Oft77S7 
UUr r 3c 


00^71 ^ 






7911 










791? 


UU f f J*» 


077710 
Ucc f 1 U 


000400 




7913 

C 7 1 J 


UUf f ou 


001 L(\L 
UU 1 "iU*i 






?9K 


UUr r Oc 


0'?771 1 
Ujc I 1 1 


040000 




791 S 


UUr rOO 


ooiniA 

UU 1 U 1 O 






7916 


nn777n 

UUr f r U 


AAA771 

UUUr r 1 
















7918 

C 7 1 O 


nft7773 
UU life 








C 7 1 7 


nn7777 

UUf f r c 


OOA7A7 
UU*! f O f 


173772 




7970 


nn777A 

UUr r rO 


01771 1 
U3c f 1 1 


000020 




?9?1 

C7C 1 


U lUUUc 


001007 
UU 1 UUc 








U 1 uuut 


0001 A'^ 
UUU 1 Oj 


004060 














797^ 


U lUU lU 


UU1 for 


174632 




79? S 

C 7C J 


U 1 UU 1 *• 


107^03 






7926 


U lUw lO 


UUH r O r 


174074 




7977 


ninA97 

U lUVcc 


nnnzni 

UUU*>U 1 






?9?8 

C 7CO 










?9?9 

C 7C 7 


U 1 UUc*i 


1 t\LLt\t\ 
\ U<i*iUU 






C 7^V 


U lUUcO 


IU*IUUU 






79^1 










795? 






















U 1 UU3U 


1 1 7717 
1 Icr jl 


000013 


001 


79^S 


U 1 uu^o 


017707 


010122 




79^ 


U IWVHc 


UU"» r O r 


174766 




79^7 


U 1 UU10 


00^71 ^ 
UUjc I J 








U 1 UU3U 


UU*» f O f 


174572 




7939 

C7 J7 


U IUU31 


107^1^ 






7940 


U 1 UU jO 


00A7A7 

UUt f O f 


175006 




7941 


010062 


005215 






7947 










794^ 

t 7"* J 


010064 


105711 






7944 


010066 


100404 






2945 


010070 


032711 


040000 




2946 


010074 


001025 






29A7 


010076 


000772 







N 5 
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START OF TESTS 



SEQ 0065 



2$: 



99$: 
lOOS: 



JSR 
BVS 
JSR 
BR 

HLT 
SCOPE 



PCUAITRDY 
99S 

PC.TinOK 
100S 



; BRANCH IF ERROR 



.-TEST 012-READ REVERSE SHUTDOWN 



TST012: 


novB 


Jll ^ AJITCTUIIM 

f 1c*if TSTNUn 




nov 


f 3S«R2 




JSR 


PC, WRITE 




INC 


(R5> 




JSR 


or LI A 1 TDAV 

PC .WAITRDT 




BVS 






JSR 


PC ,RcVRD 




INC 


(RS) 


1>: 


CnP 






oca 

DtU 






BIT 


«ERR«(R1) 




BNE 


99$ 




BR 


1$ 


2S: 








JSR 


PCTinON 


3S: 


BIT 


#S0UN,(R1> 




BNE 


4$ 




JMP 


TINER(R3) 


4S: 


JSR 


PC.WAITRDY 




BVS 


99$ 




JSR 


PCTinOK 




BR 


100$ 


99$: 


HLT 




100S: 


SCOPE 





.-TEST 013-REAO REVERSE SETTLEOOWN 
:THIS TEST MEASURES TIME FROH 'SDUN' 



1$: 



NOVB 


f13,afTSTNUH 


NOV 


f4$,R2 


JSR 


PC, WRITE 


INC 


(R5) 


JSR 


PC.WAITRDY 


BVS 


99$ 


JSR 


PCREVRD 


INC 


(R5) 


TSTB 


(R1) 


BHI 


2$ 


BIT 


#ERR,(R1) 


BNE 


99$ 


BR 


1$ 



: FRAME COUNT TO 'SDWN'=1. 



SET RETURN PC FROM TIMER 
WRITE A RECORD 
SET 'GO' BIT 



:SET '60' BIT 

.•BRANCH WHEN FRAME COUNT 

f OF RECORD WRITTEN 
.-MONITOR ERROR BIT IN 'DS' REG 



.•TURN TIMER ON 
.•BRANCH WHEN SDWN SETS 

:G0 TO TIMER I RETURN VIA R2 

.WAIT FOR READY 



=1 TO •SDWN'=0. 

.-SET RETURN PC FROM TIMER 
.•WRITE A RECORD 
.•SET '60' BIT 



;SET '60' BIT 

.•BRANCH WHEN 
.READY SETS 



CZTULAO TW)2 DRIVE FUNCTION TIMER 
CZTULA.Pll 07-JUN-78 17:07 



2948 








29^9 


010100 


032711 


000020 


2950 


010104 


001004 




2951 


010106 


032711 


040000 


2952 


010112 


001016 






0 lOl 14 


OOOr rl 




2954 








2955 


010116 






2956 


010116 


004767 


173646 


2957 


010122 


032711 


000020 


291 0 


'^10126 


001402 




'>959 


U''>130 


000163 


004060 


0 

2%1 


0101 34 


004767 


174506 


2962 


010140 


102403 




2963 


010142 


004767 


173750 


2964 


010146 


000401 




2965 








2966 


010150 


104400 




2967 


010152 


104000 




2968 








2969 








2970 


010154 






2971 


010154 


004767 


174572 


2972 


010160 


102401 




2973 


010162 


102002 




2974 


010164 


104400 




2975 


010166 


000772 




2976 


010170 






2977 








2978 








2979 








2980 


010170 


112737 


000014 


2981 


010176 


012702 


010230 


2982 


010202 


004767 


174626 


2983 


010206 


005215 




2984 


010210 


004767 


174432 


2985 


010214 


102420 




2986 








2987 


010216 


004767 


174646 


2988 


010222 


004767 


173542 


2989 


010226 


005215 




2990 








2991 


010230 


005765 


000032 


2992 


010234 


100002 




2993 


010236 


000163 


004060 


2994 








2995 


010242 


004767 


174400 


2996 


010246 


102403 




2997 


010250 


004767 


173642 


2998 


010254 


000401 




2999 








3000 


010256 


104400 




3001 


010260 


104000 




3002 








3003 
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SEO 0066 



2t: 



3S: 
4S: 

5S: 



99$: 
100$: 



BIT 
BNE 
BIT 
BNE 
BR 



JSR 
BIT 
BEQ 
JHP 

JSR 
BVS 
JSR 
BR 

HLT 
SCOPE 



#SDUN,(R1) 
3$ 

#ERR,(R1) 

99$ 

2$ 



PCTIMON 

#SDyN,(R1) 

5$ 

TinER(R3) 

PCWAITRDY 
99$ 

PCTinOK 
100$ 



;TURN TIMER ON 
.'BRANCH WHEN SUDN = 0 

:G0 TO TIMER ( RETURN VIA R2 

;UAiT FOR READY 



.•REWIND DRIVE 
A: 

JSR 
BVS 
BVC 

99$: HLT 
BR 

100$: 



PC. REWIND 

99$ 

100$ 



.•REWIND SLAVE 

.•BRANCH IF ERROR ON REWIND 



;TEST 014-TURN AROUND DELAY (FORWARD-REVERSE) 
;THIS TEST MEASURES TIME FROM 'G0'=1 (READ REVERSE) TO 'ACCL'=0 



1$: 



2$: 



3$: 



99$: 
100$: 



HOVB 


#14,a#TSTNUH 




MOV 


#2t.R2 


.-SET RETURN PC FROM TIMER 


JSR 


PC, WRITE 


.•WRITE A RECORD 


INC 


(R5) 


;SET 'GO' BIT 


JSR 


PCWAITRDY 




BVS 


99$ 




JSR 


PC.REVRD 


:READ THE RECORD (REVERSE) 


JSR 


PC.TIMON 


.-TURN TIMEP ON 


INC 


(RS) 


;SET 'GO* BIT 


TST 


TC(R5) 


.•WAIT FOR 'ACCL' = 0 


BPL 


3$ 




JMB 


TIMER(R3) 


:G0 TO TIMER % RETURN VIA R2 


J:>R 


PC.WAITRDY 




BVS 


99$ 




JSR 


PC.TIMOK 




BR 


100$ 




HLT 






SCOPE 







.•TEST 015- TURN AROUND DELAY (REVERSE-FORWARD) 
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300A 










.•THIS 


TEST MEASURES TIME FROM •G0'=1 


(READ) TO 'ACCL'sQ. 


3005 


010262 


112737 


000015 


001122 


TST015 


: MOVB 


HS.aiTSTNUM 




3006 


010270 


012702 


010336 






MOV 


I2S,R2 


.-SET RETURN PC FROM TIMER 


3007 


010274 


004767 


174534 






JSR 


PC. WRITE 


:WRITE A RECORD 
.-SET 'GO* BIT 


3008 


010300 


005215 








INC 


(R5) 


3009 


010302 


004767 


174340 






JSR 


PC.WAITRDY 


;WAIT FOR READY 


3010 


010306 


102426 








BVS 


99S 


• 


3011 


010310 


004767 


174554 






JSR 


PC.REVRD 


:READ A RECORD IN THE 
;SET 'GO' BIT 


3012 


010314 


005215 








INC 


(R5) 


3013 


















301 4 


010316 


004767 


174324 






JSR 


PC.WAITRDY 




3015 


010322 


102420 








BVS 


99S 




3016 


















3017 


010324 


004767 


174522 




IS: 


JSR 


PC. READ 


;READ RECORD FORWARD 


3018 


010330 


004767 


173434 






JSR 


PC.TIHON 


;TURN TIMER ON 
.-SET 'GO' BIT 


3019 


010334 


005215 








INC 


(R5) 


3020 


















3021 


010336 


005765 


000032 




2S: 


TST 


TC(R5) 


.•WAIT FOR 'ACCL* = 0 


3022 


010342 


100002 








BPL 


3S 




3023 


010344 


000163 


004060 






JMP 


TIMER(R3) 


:G0 TO TIMER t RETURN VIA R2 


3024 


















3025 


010350 


004767 


174272 




3S: 


JSR 


PC.WAITRDY 




3026 


010354 


102403 








BVS 


99$ 




3027 


010356 


004767 


173534 






JSR 


PC, TIMOR 




3028 


010362 


000401 








BR 


100S 




3029 


















3030 


010364 


104400 






99$: 


HLT 






3031 


010366 


104000 






100S: 


SCOPE 






3032 


















3033 










.-TEST 


016-GAP 


SIZE (STOP HALF) 




3034 


010370 


112737 


000016 


001122 


TST016 


: MOVB 


#16.afTSTNUM 




3035 


010376 


012702 


010434 






MOV 


#1S.R2 


;SET RETURN PC FROM TIMER 


3036 


010402 


004767 


1 74426 






JSR 


PC, WRITE 


.WRITE A RECORD 
;SET 'GO' BIT 


3037 


010406 


005215 








INC 


(R5) 


303S 


010410 


004767 


1 74232 






JSR 


PC.WAITRDY 




3039 


010414 


102421 








BVS 


99$ 




3040 


010416 


004767 


173732 






JSR 


PC, DELAY 


:DELAY 350 MS 


3041 


010422 


004767 


174442 






JSR 


PC.REVRD 


.READ REVERSE RECORD 


3042 


010426 


004767 


173336 






JSR 


PC.TIMON 


;TURN TIMER ON 
;SET 'GO' BIT 


3043 


010432 


005215 








INC 


(R5) 


3044 


















3045 


010434 


005710 






1$: 


TST 


(RO) 


;WA1T FOR FRAME COUNT > 0 


3046 


010436 


001002 








6NE 


2$ 




3047 


010440 


000163 


004060 






JMP 


TIMER(R3) 


:G0 TO TIMER I RETURN VIA R2 


3048 


















3049 


010444 


004767 


174176 




2S: 


JSR 


PC.WAITRDY 


;WAIT FOR READY BIT TO SET 


3050 


010450 


102403 








BVS 


99$ 




3051 


010452 


004767 


173440 






JSR 


PC.TIMOK 


.•CHECK TIME 


3052 


010456 


000401 








BR 


1 nnt 
1 UU* 




JVJJ 


















3054 


010460 


104400 






991: 


HLT 






3055 


010462 


104000 






100S: 


SCOPE 






3056 


















3057 










.'TEST 


017-GAP 


SIZE (START HALF) 




3058 


010464 


112737 


000017 


001122 


TST017: noVB 


#17.8#TSTNUM 




3059 


010472 


012702 


010544 






MOV 


11$. R2 


;SET RETURN PC FROM TIMER 
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3060 


010476 


004767 


174332 




JSR 


3061 


010502 


005215 






INC 


3062 


010504 


004767 


174136 




JSR 


3063 


010510 


102427 






BVS 


306A 


01051: 


004767 


174352 




JSR 


3065 


010516 


005215 






INC 


3066 


010520 


004767 


174122 




JSR 


3067 


010524 


102421 






BVS 


3068 


010526 


004767 


173622 




JSR 


3069 


010532 


004767 


174314 




JSR 


3070 


010536 


004767 


173226 




JSR 


3071 


010542 


005215 






INC 


3072 












3073 


010544 


005710 




IS: 


TST 


3074 


010546 


001002 






BNE 


3075 


010550 


000163 


004060 




jnp 


3076 












3077 


010554 


004767 


174066 


2S: 


JSR 


3078 


010560 


102403 






BVS 


3079 


010562 


004767 


173330 




JSR 


30«0 


010566 


000401 






BR 


3081 












3082 


010570 


104400 




99$: 


HLT 


3083 


010572 


104000 




100$: 


SCOPE 


3084 












3085 








.•TEST 


020- GAP 


3086 








.•THIS 


TEST HEA 


3087 


010574 


112737 


000020 001122 


TST020: NOVB 


3088 


010602 


012702 


010664 




mv 


3089 


010606 


004767 


174222 




JSR 


3090 


010612 


005215 






INC 


3091 


010614 


004767 


174026 




JSR 


3092 


010620 


102433 






BVS 


3093 


010622 


004767 


174206 




JSR 


3094 


010626 


005215 






INC 


3095 


010630 


004767 


174012 




JSR 


3096 


010634 


102425 






BVS 


3097 


010636 


004767 


174226 




JSR 


3098 


010642 


005215 






INC 


3099 


010644 


004767 


173776 




JSR 


3100 


010650 


102417 






BVS 


3101 


010652 


004767 


174212 




JSR 


3102 


010656 


004767 


173106 




JSR 


3103 


010662 


005215 






INC 


3104 












3105 


010664 


005710 




1$: 


TST 


3106 


010666 


001002 






BNE 


3107 


010670 


000163 


004060 




jnp 


3108 












3109 


010674 


004767 


1 73746 


2$: 


JSR 


3110 


010700 


102403 






BVS 


3111 


010702 


004767 


173210 




JSR 


3112 


010706 


000401 






BR 


3113 












3114 


010710 


104400 




99$: 


HLT 


3115 


010712 


104000 




100$: 


SCOPE 
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PC. WRITE 
(R5) 

PC.UAITROY 
99$ 

PC.REVRD 

(R5) 

PC.UAITRDY 
99$ 

PC. DELAY 
PC. READ 
PC.TinON 
(R5} 

(RO) 
2$ 

TinER(R3) 

PC.UAITRDY 
99$ 

PC.TINOIC 
100$ 



.WRITE A RECORD 
;SET '60' BIT 
;UAIT FOR READY 

:READ REVERSE THE RECORD 

;SET '60' BIT 

;UAIT FOR READY 

.-BRANCH ON ERROR 

;UAIT FOR TAPE MOTION TO STOP 

.•READ RECORD 

.•TURN TIMER ON 

.SET '60' BIT 

:UAIT FOR FRAME COUNT > 0 

.•60 TO TIMER i RETURN VIA R2 

:UAIT FOR READY 

.CHECK TIME 



SEQ 0068 



SIZE (INTERRECORD) 
lURES TINE FROM '60* 

f20.afTSTNUM 

f1$.R2 

PC.WRITE 

(R5) 

PC.WAITRDY 
99$ 

PC.URITE 
(R5) 

PC.WAITROY 
99$ 

PC.REVRD 
(R5) 

PC.WAITRDY 
99$ 

PC.REVRD 
PC.TIHON 
(R5> 

(RO) 
2$ 

TIMER(R3) 

PC.WAITRDY 
99$ 

PC.TIMOK 
100$ 



=1 TO 'FC RE6' >0. 

;SET RETURN PC FROM TIMER 
;WRITE A RECORD 
.SET '60' BIT 
.■WAIT FOR READY 

.•WRITE SECOND RECORD 
;SET '60' BIT 
.WAIT FOR READY 

;READ REVERSE SECOND RECORD 
;SET 'GO' BIT 
.-WAIT FOR READY 

.READ REVERSE FIRST RECORD 
.-TURN TIMER ON 
.-SET '60* BIT 

.-WAIT FOR FRAME COUNT > 0 

:60 TO TIMER t RETURN VIA R2 

;WAIT FOR READY 
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3116 
3117 
3118 
3119 
3120 
3121 
3122 
3123 
31 2A 
3125 
3126 
3127 
3128 



3129 


010714 


112737 


000021 


001122 


3130 


010722 


012702 


011060 




3131 


010726 


004767 


174020 




3132 


010732 


102530 






3133 


010734 


005067 


170154 




3134 


010740 


012700 


000021 




3135 


010744 


004767 


174064 




3136 


010750 


005215 






3137 


010752 


004767 


173670 




3138 


010756 


102516 






3139 


010760 


004767 


173420 




3H0 


010764 


062767 


000022 


170122 


3U1 


010772 


005300 






3U2 


010774 


001363 






3U3 










3UA 


010776 


012700 


000021 




3U5 


011002 


004767 


174062 




3U6 


011006 


005215 






3U7 


011010 


004767 


173632 




3148 


011014 


102477 






3U9 


011016 


005300 






3150 


011020 


001370 






3151 










3152 


011022 


012700 


000020 




3153 


011026 


012701 


001054 




3154 


011032 


004767 


174014 




3155 


011036 


005215 






3156 










3157 


011040 


004767 


173602 




3158 


011044 


102463 






3159 


011046 


004767 


174000 




3160 


011052 


004767 


172712 




3161 


011056 


005215 






3162 










3163 


011060 


005765 


000006 




3164 


011064 


00^002 






3165 


011066 


000163 


004060 




3166 










3167 


011072 


004767 


173550 




3168 


011076 


102446 






3169 


011100 


010421 






3170 


011102 


005300 






3171 


011104 


001355 
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TEST 021- GAP CONSISTANCY 

THIS TEST MEASURES HUE FROM •60' = 1 TO 'FC REG' > 0. 
THE TEST REWINDS THE TAPE. WRITES 17 RECORDS WITH A DELAY FROM 1-16 MS 
BETWEEN EACH WRITE COPLAND. AFTER THE 17. RECORDS ARE WRITTTEN THE 
PROGRAM READ REVERSES 16 RECORDS. AT THIS POINT THE TAPE IS STOPPED BE- 
TWEEN THE FIRST AND SECOND RECORD. A READ COMMAND IS EXECUTED TO READ 
THE 16 RECORDS WITH THE TIME BETEUEN GO-I TO FC > 0 STORED IN '6APTBL' 
FOR EACH RECORD READ. AFTER 16 RECORDS HAVE BEEN READ THE TIME IS VER- 
IFIED FOR EACH READ. AFTER ALL RECORD TIMES ARE VERIFIED THEY ARE AVER- 
AGED AND PLACED IN THE 'ATIHTBL' (BY SCOPE). THE ABOVE PROCESS IS RE- 
PEATED FOR EACH ITERATION. 



IS: 



2S: 



3$: 



4$: 



5S: 



HOVB 


121 ,a#TSTNUM 


HOV 


f4t,R2 




or PFuiun 


BVS 


99S 


CLR 


DELTIM 


MOV 


#17.. RO 


JSR 


PC, WRITE 




(R5) 


JSR 


PC.WAITRDY 


BVS 


99S 


JSR 


PCDELAYV 


ADD 


#18.. DELTIM 


DEC 


RO 


sue 


i« 


HOV 


#17.,R0 


JSR 


PCREVRD 


mr 


(R5) 


JSR 


PC.WAITRDY 


BVS 


99S 


DEC 


RO 


BNE 


2% 


HOV 


#16.. RO 


HOV 


#6APTBL,R1 


JSR 


PC. READ 


INC 


(RS> 


JSR 


PC.WAITRDY 


BVS 


99$ 


JSR 


PC. RE AO 


JSR 


PC.TIMON 


INC 


(R5) 


TST 


FC(R5) 


BNE 


5S 


J MP 


TINER(R3) 


JSR 


PC.WAITRDY 


BVS 


99$ 


MOV 


R4.(R1)^ 


DEC 


RO 


BNE 


3$ 



SET RETURN PC FROM TIMER 
REWIND SLAVE 

BRANCH IF ERROR ON REWIND 
CLEAR VARIABLE DELAY TIME 
SET # OF RECORDS TO WRITE 
WRITE 17. RECORDS 
SET 'GO* BIT 
WAIT FOR READY 

DELAY BEFORE WRITINS,NEi(T REC. 

SET NEXT DELAY TIME 

DECREMENT RECORDS WRITTEN COUNT 



:SET # OF RECS. TO REVERSE READ 
.REVERSE READ 17. RECORDS 
:SET '60' BIT 
:WAIT FOR READY 

.-DECREMENT RECORD COUNT 



SET # OF RECORDS TO READ 
SET PTR TO GAP TABLE FOR TEST 
READ A RECORD 
SET 'GO' BIT 

WAIT FOR READY 

READ NEXT RECORD 
TURN TIMER ON 
SET 'GO' BIT 

WAIT FOR FRAME COUNT > 0 

GO TO TIMER t RETURN VIA R2 

WAIT FOR READY 

STORE TIME IN GAPTBL 
DECREMENT « OF RECORDS READ 



CZTULAO TN02 DRIVE FUNCTION TIMER 



CZTULA 


.P11 07-JUN-78 


17:07 


3172 








3173 


01 1 1 06 


105037 


001120 


3174 


011112 


012700 


000020 


3175 


011116 


012701 


001054 


3176 








3177 


011122 


012104 




3178 


011124 


004767 


173076 


3179 


011130 


105237 


001120 


3180 


011134 


122737 


000020 


3181 


011142 


A A4 V ^ ^ 

001 367 




3182 








3183 


011144 


A 4 ^ ^AA 

012700 


000020 


318A 


011150 


A4 ^^A4 

012701 


001054 


3185 


011154 


A Ar AA^ 

005002 




3186 


A4 4 4 f < 

011156 


A Af AA V 

005003 




3187 


A4 4 4 ^ A 

011160 


A< ^ 4 A^ 

062102 




3188 


A4 4 4 ^ *1 

011162 


A Af f A9 

005503 




3189 


A4 4 4^4 

011164 


A Af 9 AA 

005300 




3190 


A4 4 4 X X 

011166 


AA4 

001374 




3191 


A4 4 4 

Oil 170 


A4 ^ A A 

012700 


000004 


3192 


A 4 4 4 ^/ 

011174 


006203 




3193 


A4 4 4 

01 1 1 76 


f\f\l AA^ 

006002 




3194 


A 4 4 ^ AA 

011200 


AACTAA 

005300 




3195 


A4 4 A 

011202 


AA4 T*f / 

001374 




3196 


A4 4 ^A/ 

011204 


A4 A'^A/ 

010204 




3197 


A4 4 ^A^ 

011206 


AA/ 7X7 

004767 


172704 


3198 


A4 4 ^4 ^ 

01121? 


000401 




3199 








3200 


A4 4 1 4 / 

011214 


A t\i i AA 

104400 




3201 


01 1216 


4 A/ AAA 
104000 




3202 








3203 








3204 








3205 


0112&0 


112737 


000022 


3206 








3207 








3208 








3209 


A4 1 1 1Z 

011226 


112737 


000023 


3210 


4 IT/ 

011234 


A4 ')7AO 

012702 


011306 


3211 


A4 4 1/ A 

011240 


AA/ 

004767 


173506 


3212 


A1 4 ^/ / 


1 AO/ T7 

102437 




3213 


A4 1 X 

01 1246 


AA/ TX7 

004367 


173716 


3214 


0112S2 


A4 Ci 7X 

015176 




3215 


A1 4 OC/ 

011254 


1 7XT/ A 

1 76340 




3216 


A4 1 

011256 


4 7/ 7AA 
1 74 700 




3217 


A4 1 A 

011260 


AAAAX A 

000060 




3218 


All ^ 

011262 


AAC 04 C 

005215 




3219 








3220 


011264 


A*) '^74 A 

022710 


174700 


3221 


Ul icfV 


UU 1 UUh 




3222 


011272 


032711 


040000 


3223 


011276 


001022 




3224 


011300 


000771 




3225 








3226 


011302 






3227 


011302 


004767 


172462 
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SEO 0070 



6S: 



001120 



7$: 



8S: 



CLRB 


afGAp 


M All 

BOV 


|# 4 Z DA 

ff 16. ,R0 


nov 


IGAPTBL.RI 


nov 


(R1)*.R4 


JSR 


PCGAPOK 


INCB 


a#GAP 


cnpB 


#16.,a#GAP 


BNE 


6S 


nov 


f16.,R0 


nov 


IGAPTBL.Rl 


CLR 


R2 


CLR 


R3 


ADD 


(R1)*,R2 


ADC 


R3 


DEC 


RO 


BNE 


7$ 


flUV 


ML on 


ASR 


R3 


ROR 


R2 


DEC 


RO 


BNE 


8S 


nov 


R2.R4 


JSR 


PCTinOK 


BR 


100$ 


HLT 




SCOPE 





001122' 



001122 



99S: 
1001: 



.•TEST 022-DUnnY TEST 

;THIS TEST MEASURES NOTHING 

TST022: HOVB #22, a«TSTNUn 

.-TEST 023-DATA TIME (2006PI) 
:THIS TEST MEASURES TIHE FROM 'FC 

TST023: 



RES' 



IS: 



novB 


#23,a#TSTNUn 


nov 


#3$,R2 


JSR 


PC.REUIND 


BVS 


99$ 


JSR 


R3,TncnD 


.WORD 


UTBUF 


.WORD 


-800. 


.WORD 


-1600. 


.WORD 


UFUD 


INC 


(R5) 


cnp 


#-1600. .(RO) 


BNE 


2S 


BIT 


#ERR,(R1) 


BNE 


99$ 


BR 


1$ 



2$: 



;SET GAP # 0 



GET GAP TICK COUNT 
CHECK TinE 
INCREnENT GAP # 

BRANCH IF ALL GAPS NOT CHECKED 



SETUP TO AVERAGE GAP SIZES 
SET PTR TO TABLE 
CLEAR 'SUn' REGISTERS 

;ADD ALL GAP SIZES TOGETHER 



;NOy DIVIDE BY 16. 

:BY SHIFTING 4 PLACES RIGHT 



.-nOVE AVERAGED TIMES TO R4 
.•CHECK AVERAGED TIMES 



JSR 



PC.TinON 



CHANGES TO 'RDY'rl. 

SET RETURN PC FROM TIMER 
REWIND SLAVE 

BRANCH IF ERROR ON REWIND 
WRITE 800 WORD RECORD 
SET WRITE BUFFER ADDRESS 
WORD COUNT 
FRAHE COUNT 
WRITE COnMAND 
SET '60' BIT 

.•WAIT FOR FRAnE COUNT TO CHANGE 

;nONITOR ERROR BIT 



;TURN TinER ON 
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HACY11 


30(1046) 


G 6 

13rJUN-78 13:U PAGE 


71 


CFO rtrt71 
)Cli UUr 1 


CZTULA. 


P11 07-JUN-78 


17:07 




C T A D T 
b I AR 1 


AC T C C T C 






5cco 


01 1 306 


105711 






TC • 


T C TD 


I K 1 ; 


•UAIT CAD DCAnv TA CCT 
;WAil rUK KcAUT lU at i 




5ccy 


011310 


4 A A / A ^ 

100402 








DM f 


z c 






3c 30 


011312 


000163 


004060 






tMD 

Jnr 


T I MC D / D T S 


• r.n TA TIHCD §. DCTIIDM 1/ 1 A D9 
, uU lU lincK ii NC 1 UNN VIA Kc 




Ton 
3£31 


011316 


A 4 ^^A A 

012700 


000003 




z c • 
*• : 


MAW 

nUV 


j7 on 


, 9C 1 lU UiViUC DT 0 




3£3£ 


A4 4 V ^ ^ 

011322 


A A^ ^ A / 

006204 






cc • 


A CD 


DZ 

Kh 


• DV CUICTIMft DKIUT T DIATCC 

(OT snir iinu Kiuni 3 rLALCS 




3£33 


A4 4 

011324 


AAC 9AA 

005300 








vt I 


DD 
KU 






X'iXL 

3i3H 


A 4 4 V 

011326 


AA4 9^f 

001375 








Due 


cc 
3* 






3233 


A4 4 99A 

011330 


AAJ 9^ 9 

004767 


173312 






t CD 


or Uk I TDh V 






3c30 


A 4 4 V 9 / 

011334 


4 A*) / A9 

102403 








DUC 
0*9 


T7» 






3c3f 


A4 4 

01 1 336 


AA/ 9^ 9 

004767 


172554 






t C D 


or T I unit 






3c 30 


A4 4 9/ t 

011342 


AAA / A 4 

000401 








DD 
OK 


1 nn< 
1 uu« 






3c3t 




















xoi.n 
3c*0 


01 1 344 


4 A / / A A 

104400 






77» : 


UI T 








TO/ i 

3cH 1 


A4 4 9/ ^ 

011346 


« f\ J AAA 

104000 






1 UU» : 


cr ADC 








TO/ o 




















X'iJ X 

3ch3 










. T C C T 

, T 1 5 1 


AOZ ...rt ATA 

Uc* DA 1 A 


T 1 MC ( C CADD 1 ) 






TO/./. 


011330 


112737 


000024 


001122 


T C TftOZ 

15 lOcH 


: novo 


*c* «■« 1 9 1 Nun 






TO/C 

3eH3 


A1 4 TC A 

011336 


A1 ')9A') 

01 2 r 02 


011436 






MAW 

nuv 


MXt. D3 


• CCT BCTIIBM or tOr\M TIMCD 

, 9C 1 nC 1 Unn rv r NUn 1 inCn 




TO/ X 


A1 1 T^ O 

011362 


AA/ 9^9 

004767 


173364 






1 C D 


or Dcuiun 
rl , .KtwlNU 


• DCUIftin CI At/C 




T0Z7 


01 1 366 


1 AI/ / ^ 

1024*c 








Due 


QOt. 
7T» 


• BDAkirU IC CDDAD Akl QCUfkin 




3c*o 


011370 


AC 07X C 

052765 


000700 


000032 




Die 


#DD I C'tAi.urtDII1 1 TrfDO 
War I 3 30*MUKn 1 1 « 1 L I n? / 


• 1 AAA TADC rnklTRfll DCCICTFB 




TOZO 


A1 1 

0113^6 


AA/ TX 7 

004367 


173566 






1 CD 


OX TMrim 

K3 « 1 ntnu 


^•nllC CCC*l • MUnV nClUnV 




Tocn 
3c3U 


A1 1 / A1 

011402 


A1 CI 7X 

01 51 76 








. WUKU 


UTDI IF 

H 1 our 






TOCI 

3c51 


A1 1 / A/ 

on 404 


1 7TC OA 

1 735c0 








. WUKU 


~CCCH ■ 






TOCO 


A1 1 / AX 

01 1406 


1 X70/ A 

167c*0 








. WUKU 


"HHHO . 






TOCT 

3c j3 


A1 1 / 1 A 

01 1410 


AAAAX A 

000060 








. WUKU 


Wr WU 






TOC/. 


A1 i / 1 O 
01 IH 12 


AAC01 C 

003cl 3 








t kir 
iNl 


fD^ ^ 

VK3 / 


• CC T * tlf\' ai T 




TOCC 




















TOCA 

3c3o 


All/ 1 / 

01 IhIh 


A0071 A 

Occf 10 


167240 






r MD 


jt_/zAS fon^ 






T0C7 

3c Jf 


A1 1 / OA 

01 1h20 


AA1 AA/ 

001 00* 








DUE 


o« 

c» 






TOO 


A1 1 / O O 

01 Ihcc 


AT071 1 

03cf 1 1 


040000 






D I T 
til 1 


jrcDD {o^ \ 


•MnkllTflR FRRflR niT 
.nun J 1 Un CnnUn OJ 1 




TOCO 

3c 3t 


All/ ox 

01 1h26 


AA1 AOO 

001 Occ 










QQl 






TOAA 


A1 1 / TA 

01 1h30 


AAA771 

000 f 71 








DD 
DK 








T0A1 




















TOAO 

3cOc 


A1 i / TO 

011^32 








c> : 










TOAT 

3co3 


A1 1 / TO 

onH3c 


AA/ 7X7 

00* for 


172332 






ICD 

Jin 


or TiMnu 


• TIIDM T IMFD AM 
, 1 Unn 1 inc n Un 




TOA/. 

3cOH 


Ai 1 / XA. 

01 1h30 


1 AC71 1 

103r 1 1 






TC • 

3* : 


TCTO 


rDi t 
I K 1 / 


• BDAUrU UUFkl DFAnV CFTC 




TOAC 
3C03 


01 1**0 


1 AAZ AO 

100*0c 










zc 






3cOO 


AI 1 // O 

01 l**c 


AAAi XT 

0001 o3 


004060 






Jnr 


TII■CDfDT^ 


• tin in TIMFD i DFTIIRkI UIA D3 
« UU lU linCn • nC 1 unn Vin nC 




T3A7 

3cOf 




















3cO0 


AI 1 / / X. 

01 14*0 


AI 07AA 

OlcrOO 


000003 




*• : 


nuv 


MX on 
• 3»R0 


, 9C 1 sni r 1 Luun i 




T3AO 


AI 1 / CO 

01 l*3c 


AAXOAZ 

000c 0* 






3* • 


ACD 
A9K 


OL 
K* 






T57rt 
3< rO 


AI 1 £ cz 
01 1*3* 


AACTAA 

003300 








nc r 


DA 
KU 






3c f 1 


A1 1 Z CX 

01 1*30 


AA1 T7C 

0013r3 








ONC 


3» 






T070 


A1 1 / XA 

01 1*00 


AAZ 7X 7 
00* fbf 


173162 






1 CD 

JsH 


or UA I TDfVV 
rl ,WA1 1 KUT 








A 1 1 Z X/ 

UI 1*0* 


1 AOZ AT 

10c*03 








auc 
ova 


77» 








All/ XX 

01 1*06 


AA/ 7X7 

00* f Of 


17242* 






1 CD 
J9K 


or TiMnir 






T57< 
3Cf 3 


A1 1 Z 70 
01 l*r C 


AAA/ AI 
000*01 








DD 
OK 


1 nnt. 






icfo 




















T577 


011474 


104400 






OOC • 


lil T 








T07a 

3c f 0 


011476 


104000 








cr ADC 








3cf ▼ 




















3cBU 










• TC C T 


AOC_A A T A 


T I MC / finnDD I \ 






3281 


011500 


112737 


000025 


001122 


TST025 


: nOVB 


#025,a«TSTNun 


.-SET RETURN PC FROM TIMER 




3282 


011506 


012702 


011566 






nov 


#31, R2 




TOMT 

3cB3 


011512 


004767 


173234 






1 C D 

J 5R 


Dr Dcu riif\ 


• DPUfkin Cl AUF 
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3284 


011516 


102442 








BVS 


3285 


011520 


052765 


001300 


000032 




BIS 


3286 


011526 


004367 


173436 






JSR 


3287 


011532 


015176 








.WORD 


3288 


011534 


171600 








.WORD 


3289 


011536 


163400 








.WORD 


3290 


011540 


000060 








.WORD 


3291 


011542 


005215 








INC 


3292 














3293 


011544 


022710 


163400 




IS: 


CUP 


3294 


011550 


001004 








BNE 


3295 


011552 


032711 


040000 






BIT 


3296 


011556 


001022 








BNE 


3297 


011560 


000771 








BR 


3298 














3299 


011562 








2S: 




3300 


011562 


004767 


172202 






JSR 


3301 


011566 


105711 






3S: 


TSTB 


3302 


011570 


100402 








BNI 


3303 


011572 


000163 


004060 






JNP 


3304 














3305 


011576 


012700 


000003 




4t: 


nov 


3306 


011602 


006204 






5S: 


ASR 


3307 


011604 


005300 








DEC 


3308 


011606 


001375 








BNE 


3309 


011610 


004767 


173032 






JSR 


3310 


0116U 


102403 








BVS 


3311 


011616 


004767 


172274 






JSR 


3312 


011622 


000401 








BR 


3313 














3314 


011624 


104400 






99$: 


HLT 


3315 


011626 


104000 






100$: 


SCOPE 


3316 














3317 










.•TEST 


026-OATA 


3318 


011630 


112737 


000026 


001122 


TST026 


: nOVB 


3319 


011636 


105737 


001127 






TSTB 


3320 


011642 


001046 








BNE 


3321 


011644 


012702 


011724 






nov 


3322 


011650 


004767 


173076 






JSR 


3323 


011654 


102437 








BVS 


3324 


011656 


052765 


002300 


000032 




BIS. 


3325 


011664 


004367 


173300 






JSR 


3326 


011670 


015176 








.WORD 


3327 


011672 


171600 








.WORD 


3328 


011674 


163400 








.WORD 


3329 


011676 


000060 








.WORD 


3^30 


011700 


005215 








INC 


3331 














3332 


011702 


022710 


163400 




IS: 


CHP 


3333 


011706 


001004 








BNE 


3334 


011710 


032711 


040000 






BIT 


3335 


011714 


001017 








BNE 


3336 


011716 


000771 








BR 


3337 














3338 


011720 








2S: 




3339 


011720 


004767 


1 72044 






JSR 



H 6 
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99$ 

#BPI800«NORN11,TC(R5) 

R3.TncnD 

UTBUF 
-3200. 
-6400. 
UFUD 

(R5) 

#-6400., (RO) 
2$ 

#ERR.(R1) 

99$ 

1$ 



BRANCH IF ERROR ON REWIND 
SET 800 BPI 

WRITE 3200. WORD RECORD 



SET 'GO' BIT 

WAIT FOR WRITING TO START 
MONITOR ERROR BIT 



SEQ 0072 



PCTINON 

(R1) 

4$ 

TINER(R3) 

13. RO 
R4 
RO 
5$ 

PC, UA I TROY 
99$ 

PC.TinOK 
100$ 



.•TURN TIMER ON 

.•BRANCH WHEN READY SETS 

;G0 TO TIMER t RETURN VIA R2 

;SET SHIFT COUNT 



.•CHECK TIME 



TIME (1600BPI) 
f026,a«TSTNUM 
a#NRZFL6 
TST027 
#3$.R2 
PC.. REWIND 
99$ 

#PE1600*NORM11.TC(R5} 

R3.TncnD 

WTBUF 

-3200. 
-6400. 
WFWD 
(R5) 

#-6400.. (RO) 
2$ 

#ERR.(R1) 

99$ 

1$ 



.•BRANCH IF DRIVE 'NRZ ONLY' 

;SET RETURN PC FROM TIMER 
;REWIND SLAVE 

.•BRANCH IF ERROR ON REWIND 

;SET 1600 BPI 

.•WRITE 3200. WORD RECORD 



SET 'GO' BIT 

BRANCH WHEN WRITING STARTS 
MONITOR ERROR BIT 



PC.TIHON 



.•TURN TIMER ON 
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33A0 


011724 


105711 




3341 


011726 


100402 




3342 


011730 


000163 


004060 


3343 








3344 


011734 


006204 




3345 


011736 


0062C4 




3346 


011740 


004767 


172702 


3347 


011744 


102403 




3348 


011746 


004767 


172144 


3349 


011752 


000401 




3350 








3351 


011754 


104400 




3352 


011756 


104000 




3353 








3354 








3355 








3356 


011760 


112737 


000027 


3357 


01 1 766 


012702 


012014 


3358 


011772 


004337 


005170 


3359 


011776 


000000 




3360 


012000 


000000 




3361 


012002 


000000 




3362 


012004 


000024 




3363 


012006 


004767 


171756 


3364 


012012 


005215 




3365 








3366 


012014 


105711 




3367 


012016 


100402 




3368 


012020 


000163 


004060 


3369 








3370 


012024 


004767 


172616 


3371 


012030 


102403 




3372 


012032 


004767 


172060 


3373 


012036 


000401 




3374 








3375 


012040 


104400 




3376 


012042 


104000 




3377 








3378 








3379 








3380 


012044 


112737 


000030 


3381 


012052 


012702 


012114 


3382 


012056 


004767 


172752 


3383 


012062 


005215 




3384 


012064 


004767 


172556 


3385 


012070 


102423 




3386 


012072 


004337 


0051 7P 


3387 


012076 


000000 




3388 


012100 


000000 




3389 


012102 


000000 




3390 


012104 


000026 




3391 


012106 


004767 


171656 


3392 


012112 


005215 




3393 








3394 


012114 


105711 




3395 


012116 


100402 
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5$: 



4S: 



99S: 
lOOS: 



TSTB 

en I 

J HP 

ASR 
ASR 
JSR 
BVS 
JSR 
BR 

HLT 
SCOPE 



I 

13-JUN-78 



(R1) 
4$ 

TinER(R3) 

R4 
R4 

PC.WAITRDY 
99$ 

PCTIHOK 
100$ 



6 

13: 



54 PAGE 73 



SEO 0073 



BRANCH WHEN READY SETS 

GO TO TIMER I RETURN VIA R2 

DIVIDE TIME BY 4 

: CHECK TIME 



.■TEST 027-EaASE 

;THIS TST MEASURES TIRE FROM 'G0'=^ 
001122 TST027: NOVB «27«a#TSTNUn 



IS: 



2$: 



NOV 


#1$,R2 


JSR 


R3,a«TMCnD 


.WORD 


0 


.WORD 


0 


.WORD 


0 


.WORD 


ERASE 


JSR 


PC.TinON 


INC 


(R5) 


TSTB 


(R1) 


BNI 


2$ 


J HP 


TIMER(R3) 


JSR 


PCUAITROY 


BVS 


99$ 


JSR 


PC.TIHOK 


BR 


100$ 


HLT 




SCOPE 





TO 'RDY'=1. 

.SET RETURN PC FROM TIMER 



.-TURN TIMER ON 
;SET '60' BIT 

.BRANCH WHEN READY SETS 

;G0 TO TIMER & RETURN VIA R2 



001122 



99$: 
100$: 



;TEST-030 TAPE MARK 

.-THIS TEST MEASURES TIME FROM '60'=^ TO 'RDY'rl. 



1$: 



NOVB 


#30.a#TSTNUN 


NOV 


#1$,R2 


JSR 


PC, WRITE 


INC 


(R5) 


JSR 


PC.WAITRDY 


BVS 


99$ 


JSR 


R3,a#TMCMD 


.WORD 


0 


.WORD 


0 


.WORD 


0 


.WORD 


WFMK 


JSR 


PC.TIMON 


INC 


(RS) 


TSTB 


(R1) 


BNI 


2$ 



SET RETURN PC FROM TINER 
WRITE A RECORD 
SET '60' BIT 



;TURN TINER ON 
;SET 'GO* BIT 

.•BRANCH WHEN READY SETS 
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3396 


012120 


000163 


004060 


3397 








3398 


012124 


004767 


172516 


3399 


012130 


102403 




3A00 


012132 


004767 


171760 


3A01 


012136 


000401 




3A02 








3A03 


012140 


104400 




3A0A 


012142 






340S 


012142 


004767 


172604 


3406 


012146 


102774 




3A07 


012150 


104000 




3A08 








3A09 


012152 


012700 


000012 


341 0 


012156 


000004 


001374 


3411 


012162 


005300 




3412 


012164 


001374 




3413 


012166 


032777 


000100 


3414 


012174 


001410 




3415 


012176 


113700 


001004 


3416 


012202 


113701 


001005 


3417 


012206 


113702 


001006 


3418 


012212 


000137 


006540 


3419 


012216 


105237 


001005 


3420 


012222 


005237 


001006 


3421 


012226 


122737 


000010 


3422 


012234 


001402 




3423 


012236 


000137 


006314 


3424 


012242 


105037 


001005 


3425 


012246 


105237 


001004 


3426 


012252 


122737 


000010 


3427 


012260 


001402 




3428 


012262 


000137 


006314 


3429 








3430 


012266 


105737 


001125 


3431 


012272 


001004 




3432 


012274 


000004 


013377 


3433 


012300 


000137 


005340 


3434 


012304 


000000 




3435 


012306 


000005 




3436 


012310 


000137 


005340 


3437 








3438 








3439 


012314 


012737 


012322 


3440 








3441 








3442 








3443 








3444 


012322 


112737 


000031 


3445 


012330 


012702 


012406 


3446 


012334 


004767 


172412 


3447 


012340 


102441 




3448 


012342 


052765 


001300 


3449 


012350 


052765 


000010 


3450 


012356 


004337 


005170 


3451 


012362 


015176 





166604 



001005 



001004 



001002 



001122 



000032 
000010 
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SEO 007A 



99S: 
100S: 



IS: 



2S: 



3S: 



END: 



IS: 





TIRER(R3) 


;G0 TO TIMER t RETURN VIA R2 


JSR 


PC.UAITRDY 




BVS 


99$ 




JSR 


PCTIKOK 




RR 

on 


1 V w • 




HLT 






JSR 


PC, .REWIND 


;REUIND SLAVE 


BVS 


99S 


.-BRANCH IF ERROR ON REWIND 


SCOPE 






nov 


#10., RO 


;SET LINE FEED COUNT 


TYPE.CRLF 




DEC 


RO 




BNE 


IS 




BIT 


fSU06,aSUR 




BEQ 


2S 




novB 


8#0RVNUN,R0 




NOVB 


afSLVNUH.RI 




NOVB 


afSLVPTR,R2 




JMP 


a#TYPHOR 




INCB 


afSLVNUN 


;SET NEXT SLAVE » 


INC 


a#SLVPTR 


;AND ITS POINTER 


CMPB 


f8.,afSLVNun 


.-BRANCH IF LAST SLAVE (7) 


BEQ 


3S 




JMP 


afBEGIN 


.BEGIN TEST ON NEXT SLAVE 


CLRB 


a#SLVNUN 


:SET SLAVE #0 


INCB 


afORVNUM 


.-AND INCREMENT DRIVE # 


CHPB 


#8.,afDRVNUN 


.-AND CHECK IF LAST DRIVE 


BEQ 


END 




JNP 


a#BEGIN 




TSTB 


atUNTfND 


;BRANCH IF A UNIT WAS FOUND 


BNE 


IS 




TYPE. E. UNIT 




JNP 


a«iNiT 




HALT 






RESET 






JHP 


a#iNiT 


.•RESTART 



;SKEU TAPE TIHIN'". TESTS 

:THE FOLLOWING TESTS REQUIRE A SPECIALLY WRITTEN 800 BPI SKEW TAPE 
SKEWTST:nOV f TST031 .if SCPADR ;SET SCOPE POINTER 



TEST 031- SKEW TAPE SPEED TEST-FORWARD 
THIS TEST READS 32" OF TAPE (26400.-800 
DIVIDES TIME BY 32. TO GET TIME TO READ 
tST031: NOVB #31 .if TSTNUM 

NOV #2S.R2 

JSR PC.. REWIND 

BVS 99S 

BIS #BPl800tNORM11.TC(R5) 
BIS #BAI.CS2(R5) 
JSR R3.a#TMCND 
.WORD RDBUF 



= 25600. FRANES).THEN 
1" (800. FRANES) OF TAPE. 

SET RETURN PC FRON TINER 
REWIND SLAVE 

BRANCH IF ERROR ON REWIND 
SET 800 BPI 

INHIBIT BUS ADDRESS INCREMENT 
READ 32" OF TAPE-FORWARD 
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START 


OF TESTS 




SEO 0075 




Q1 cbw 


1 77777 
\l f 1 f 1 








.WORD 


-1 ^ 




JHJJ 


0ic566 








10S: 


.WORD 


?6400 


■FRAME COUNT 


jH JH 


OlcjrU 


AAAA7A 

0000 rU 








.WORD 


RDFUD 




JHJJ 


At ^T7^ 


00)£ 1 J 








INC 


(RS) 


•SFT 'GO* BIT 

WW nil 




















jH J f 


Ai 


Occf 10 


00U40 




IS: 


CMP 


#800 (RO) 


■WAIT FOR FIRST 800 FRAMES 


jHjO 


Ai AA 


1 AI T7C 








BHI 


ic 

1 m 


•TO RF READ 






















AI 


AAZ.7iL7 

00*1 r Of 


171362 






JSR 


PC TIMON 


.•TURN TIMER ON 


J*f O 1 


UIchUo 


A9't71 A 


012366 




2S: 


CHP 


ajfios (RO) 


•WAIT FOR READING TO FINISH 




AI 9A1 3 


IUjhUc 








BLO 


3$ 


-GO TO TIMER S RETURN VIA R2 






AAA1 XV 

OOU 1 Oi 


004060 






JNP 


TIMER(R3) 






















AI 9/,9n 


ni 57nn 


000005 




3$: 


nov 


#5 RO 


•DIVIDE TIME BY 32. 




AI 9/,?/, 


AAA9AA 






4$: 


ASR 


R4 




JHO f 


\J 1 cScO 


nncTAo 








DEC 


RO 






AI 0A7A 


AA1 t7C 








BNE 


4S 






AI ^AtS 


AA/,7A7 
UUm f Of 


172152 






JSR 


PC RHINIT 


'INIT DRIVE 




AI 


AA/.7A7 
OU*f Of 


17U54 






JSR 


PC TIMOIC 


•CHECK TIME 


j"i f 1 




000401 








BR 


100S 




^A7? 




















AI "iLLL 


1 nA/,nn 






99S: 


HLT 






XLIL 




1 n/,nnA 






100S: 


SCOPE 






jH 1 J 


















j*l r O 










.•TEST 


032-SICEW 


TAPE SPEED TEST-REVERSE 




XL77 










.-THIS 


TEST READS FORWARD 40" (32000. FRAMES) OF TAPE, THEN READS REVERSE 


^^7A 

jH 1 O 










;32" 


(26400.-800. = 25600. FRAMES) OF TAPE. THE TIME IS THEN DIVIDED BY 












;32. 


TO GET TIME TO READ 1" (800. FRAMES) OF TAPE. 




AI 9^cn 


1 1 07X7 


000032 


001122 


TST032: nOVB 


f32.ifTSTNUM 






U 1 £'•30 


ni 57n5 


012604 






MOV 


f3S,R2 


:SET RETURN PC FROM TIMER 


jtOC 


U 1 c'lOi 


AA/7A7 
wwt f O f 


172264 






JSR 


PC..REWIND 


: REWIND SLAVE 




AI 


1 WCiO J 








6VS 


99S 


.-BRANCH IF ERROR ON REWIND 


"KLUC 


U 1 £*• ' U 


Ujcf Oj 


001300 


000032 




BIS 


#BPI800^NORM11,TC(R5) 






AI 5^7A 


\ijCI O J 


000010 


000010 




BIS 


fBAI,CS2(R5) 






U IC3U1 




005170 






JSR 


R3.a«TMCMD 


.-READ FORWARD 32000. F-RAMES 


j*t Or 




U 1 3 1 f O 








.WORD 


RDBUF 






ni 9^1 9 


177777 

\ f f f f f 








.WORD 


-1. 


.-WORD COUNT 




ni J^^L 


Uf OHUU 






lOt: 


.WORD 


32000. 


.'FRAME COUNT 




ni 7C1 A 


nnnn7n 








.WORD 


ROFWO 


:READ FORWARD 


JHT 1 


ni 3C7n 


nnc7i c 








INC 


(R5) 


;SET 'GO' BIT 






















ni 


n3'?7in 


012514 




IS: 


CHP 


a«10S,(R0) 






ni9C9A 










BHI 


IS 
























ni J^xn 


AAA 7A7 
UUH f Of 


172054 






JSR 


PC. RHINIT 


:INIT DRIVE 


^^97 


ni 


nnA7A7 


171614 






JSR 


PC. DELAY 


.WAIT FOR TAPE MOTION TO STOP 


^9A 


ni 9^^n 


VJCfOJ 


001 30C 


000032 




BIS 


IBPI800^NORM11.TC(R5) 


:SET 800 BPI 


XJ.QQ 


U 1 £3HO 


nS97AS 
ujc ioj 


000010 


000010 




BIS 


fBAI.CS2(R5) 


.INHIBIT BUS ADDRESS INCRENENT 




ni y^^L. 


VUHjJf 


005170 






JSR 


R3.a#TMCMD 


.-READ REVERSE 32" OF TAPE 


JJV 1 


012560 


015176 








.WORD 


RDBUF 


:READ BUFFER 




012562 


mm 








.WORD 


-1. 


.•WORD COUNT 












IIS: 


.WORD 


26400. 


.-FRAME COUNT 




012566 


000076 








.WORD 


ROREV 


:READ REVERSE 


3505 


012570 


005215 








INC 


(R5) 


.SET 'GO* BIT 


3506 
















.•WAIT FOR FIRST 800 FRAMES 




012572 


022710 


001440 




2$: 


CMP 


#800.. (RO) 



CZTULAO TH02 DRIVE FUNCTION TIMER MACY11 30(1046) 13-JUN-78 13:54 PAGE 76 



CZTULA, 


Pll 07-JUN-78 


17:07 




START OF TESTS 




3S08 




101 3' > 






BHI 


2$ :T0 BE READ 


3509 














3510 


ui cow 


7^7 


171164 




JSR 


PC.TINON ;TURN TIMER ON 


3511 


U 1 cOUh 


n5T7i n 

Uc 1 U 


012564 




3$: CMP 


a#11$,(R0) ;UAIT FOR ALL FRAMES TO BE READ 


3512 


U 1 cO 1 U 








BLO 


4$ 


3513 


U 1 col c 


nnni at 


004060 




JMP 


TIMER(R3) ;G0 TO TIMER t RETURN VIA R2 


3514 












#5.R0 ;DIVID£ TIME Br 32. 


3515 


U 1 CO 1 0 


ni P7nn 

U 1 C 1 uu 


000005 




4S: NOV 


3516 


U 1 cOc*^ 


UUOcUh 






5S: ASR 


R4 


3517 


U 1 COCH 


nn^Tnn 






DEC 


RO 


3518 


UlcOco 


nni T7C 






BNE 


5$ 


3519 


U 1 c03U 


nn£7A7 

UUh f Of 


171754 




JSR 


PC.RHINIT 


3520 


ni 

U 1 cO Oh 


nn^7A7 

UUh r Or 


171256 




JSR 


PC.TIMOK 


3521 


U 1 cOHU 


nnn^ni 

UUUHU 1 






BR 


100$ 


3522 














3523 


U 1 COHC 


1 UHHUU 






99$: HLT 




3524 


ni 








100$: 




3525 


ni9A££ 

U 1 COH** 


UUH 1 O 1 


172102 




JSR 


PC,. REWIND .-REWIND SLAVE 


3526 


ni7A^n 

U 1 C07U 


10977^ 

1 Uc lit 






BVS 


99$ ;BRANCH IF ERROR ON REWIND 


3527 


ni 


lUHUUU 






SCOPE 




3528 














3529 


ni 


nnni 77 

UUU 1 Jf 


012152 




JMP 


a#FINISH 


3530 














3531 














3532 














3533 










.SBTTL 


PROGRAM MESSAGES 


3534 










.-OPERATOR INSTRUCTIONS 


3535 


ni 9AAn 

U 1 COOU 


uu jU I 3 


052524 


032464 


n.NAH: .ASCIZ 


<CR><LF>nU45 DRIVE FUNCTION TIMER (CZTULAO)' 


3536 


\i I cooo 


UHCUHU 


044522 


''42526 






3537 


ni yf\7L 

U 1 CO f H 


UH jUHU 


047125 


u52103 






3538 


niP7fi? 

W 1 C ' VC 


n^7Si 1 

VH f J 1 1 


020116 


044524 






3539 


U 1 C 1 1 V 


fl49S1^ 

UHC J 1 J 


020122 


041450 






3540 


V 1 C ■ 1 o 


V JC 1 JC 


046125 


030101 






3541 


U 1 C r C*f 


WW J 1 










3542 


U 1 C ■ CO 


uu Jw 1 J 


054524 


042520 


I.REG: .ASCIZ 


<CR><LF>'TYPE FIRST ADDRESS OF CONTROLLER ' 


3543 




UH JUHU 


051111 


052123 




• 


3544 


U 1 c r He 




042104 


042522 






35«5 


U • C ( 


U J 1 jCj 


047440 


020106 






3546 


U 1 C r JO 


UH f JU J 


052116 


047522 






3547 


V i Cf OH 


UHU 1 1 H 


051105 


020040 






3548 


ni?77? 

U 1 C ( 1 c 


UUU 










35«9 


019771 


1?4 

1 CH 


050131 


020105 


I.DRVS: .ASCIZ 


XTYPE TM02 DRIVE «*S TO BE TESTED X 


3550 


ni^noA 

U 1 JVW 


UHO JCH 


031060 


042040 






3551 


U 1 JWO 


UHH JCC 


042526 


021440 






3552 


W 1 Jv 1 H 


vJ 1 HH f 


052040 


020117 






3553 


V 1 JvCC 


UHC JUC 


052040 


051505 






3554 


oixA^n 


UHC JCH 


02010^ 


000 






3555 


V f JVJJ 


1 uo 


051117 


052040 


I.SLVS: .ASCII 


'FOR TM02 DRIVE ' 


3556 






020062 


051104 






3557 


013050 


053111 


020105 








3558 


01305A 


026460 


052040 


050131 


I. DRV: .ASCIZ 


XO- TYPE SLAVE #'S TO BE TESTED X 




013062 


020105 


nz Ai 51 
Uho 1 c J 


ncTi n^ 






3560 


013070 


020105 


023443 


020123 






3561 


013076 


047524 


041040 


020105 






3562 


013104 


042524 


052123 


042105 






3563 


013112 


000040 











CZTULAO 


Tn02 DRIVE FUNCTION TIMER 


HACY11 30(1046) 


M 6 

13-JUN-78 13:54 PAGE 77 


C 7 TULA 


P11 07-JUN-78 


17:07 




PROGRAM MESSAGES SEQ 0077 


3S64 


U 1 ^ 1 1 H 




042505 


020104 




'SPEED TESTS ONLY' (YES/NO = 1/0)* 


3S6S 


U 1 J 1 cc 


047S74 


052123 


020123 






3566 


ni w \t\ 


0471 17 


054514 


020077 






3567 


01 W \k 


0S44S0 


051505 


047057 






3568 


01 ^144 


0701 1 7 


020075 


027461 






3569 


01 W ^7 


074460 


000 






*NRZ ONLV (YES/NO = 1/0)' 

nnfc Vvkl* \lbwrlvV IrV 


3570 


01X1SS 


116 


055122 


047440 


I NR2- ASCIZ 


3571 




046116 


037531 


024040 






3572 


01X170 


047531 


027523 


047516 






3573 


01X17<^ 


0X6440 


030440 


030057 






3574 


013704 


000051 










3575 


01 3706 


005015 


047105 


020104 


N EOT- ASCIZ 


<CR><LF>'END OF TAPE'<CR><LF> 


3576 


013714 


0431 17 


052040 


050101 






3577 


01 X??? 


00650S 


000012 








3578 














3579 










■ERROR MESSAGES 




3580 


013776 


005015 


051124 


050101 


F TRP4: ASCI2 


<CR><LF>' TRAPPED TO 4' 


3581 


013734 


042520 


020104 


047524 






3582 


013242 


032040 


000 








3583 




116 


020117 


047503 


E NCON: .ASCIZ 


'NO CONTROLLER AT ADDRESS SPECIFIED'<CR><LF> 


3584 


013252 


052116 


047522 


046114 






3585 


01 3260 


0S1105 


040440 


020124 






3586 




047101 


051104 


051505 






3587 


01 3274 


020123 


050123 


041505 






3588 


013302 


043111 

W~ J III 


042511 


006504 






3589 


013310 


000012 

WW 1 b 










3590 


013312 


046524 


031060 


042040 


E.NDRV: .ASCIZ 


*TN02 DRIVE ' 


3591 


01 3320 


044522 


042526 


000040 






3592 


013326 


051104 


053111 


020105 


E.NSLV: .ASCII 


'DRIVE * 


B593 


013334 


020060 


046123 


053101 


E.DRV: .ASCII 


'0 SLAVE * 


3594 


013342 


020105 










3595 


013344 


020060 


047516 


020124 


E.NAVA: .ASCIZ 


*0 NOT AVAILABLE FOR TEST'<CR><LF> 


3596 


013352 


053101 


044501 


040514 






3597 


013360 


046102 


020105 


047506 






3598 


013366 


020122 


042524 


052123 






3599 


013374 


005015 

W^V 1 ^ 


000 








3600 


013377 


116 


020117 


046524 


E.UNIT: .ASCIZ 


'NO TII02/TU4S UNIT FOUND TO TEST'<CR><LF> 


3601 


013404 


031060 

I wv 


052057 


032125 






3602 


013412 


020065 


047125 


052111 






3603 


013420 


043040 


052517 


042116 






3604 


013426 


052040 


020117 


042524 






3605 


013434 


052123 


005015 


000 




'SOFT ERROR (DATA) '<CR><LF> 


3606 


013441 


123 


043117 


020124 


P. SET: .ASCIZ 


3607 


013446 


051105 


047522 


020122 






3608 


013454 


042050 


052101 


024501 






3609 


013462 


005015 

W^V 1 ^ 


000 








3610 


013465 


124 


051505 


020124 


E.HDR: .ASCIZ 


'TEST # ' 


3611 


013472 


020043 


000 








3612 


013475 


040 


042504 


044526 


E.HDRI: .ASCII 


' DEVICE ERROR'<CR><LF> 


3613 


013502 


042503 


042440 


051122 






3614 


013510 


051117 


005015 








3615 


013514 


051503 


004461 


041527 


.ASCIZ 


•CSr<HT>'WC'<HT>'BA'<HT>'FC'<HT>'CS2'<HT>'0S'<HT>'^R'<HT>'TC'<CR><LF> 


3616 


013522 


041011 


004501 


041506 






3617 


013530 


041411 


031123 


042011 






3618 


013536 


004523 


051105 


052011 






3619 


013544 


006503 


000012 
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PROGRAM MESSAGES 



PAGE 78 



SEQ 0078 



3620 

3621 

3622 

3623 

3624 

3625 

3626 

3627 

3628 

3629 

3630 

3631 

3632 

3633 

3634 

3635 

3636 

3637 

3638 

3639 

3640 

3641 

3642 

3643 

3644 

3645 

3646 

3647 

3648 

3649 

3650 

3651 

3652 

3653 

3654 

3655 

3656 

3657 

3658 

3659 

3660 

3661 

3662 

3663 

3664 

3665 

3666 

3667 

3668 

3669 

3670 

3671 

3672 

3673 

3674 

3675 



013550 
013556 
013564 
013572 
013576 
013604 
013612 
013620 
013623 
013630 
013636 
013644 
013652 
013660 
013664 
013672 



013674 
013702 
013710 
013716 
013724 
013732 
013740 
013746 
013754 
013762 
013770 
013776 
014004 
014007 
014014 
014022 
014030 
014036 
014044 
014052 
014054 
014062 
014066 
014071 
014076 
014104 
014110 
014116 
014124 
014132 
014140 
014146 
014154 
014162 
014170 

014175 
014202 



047440 
020106 
020105 
006522 
005015 
020122 
046106 
005015 
015 
020105 
042522 
052111 
047506 
006531 
043440 
000040 



025052 
025052 
025052 
025052 
025052 
025052 
025052 
025052 
025052 
025052 
025052 
025052 
005015 

052 
020062 
020105 
044524 
046511 
051104 
020043 
020060 
020105 
020060 

071 
027116 
021440 
006440 
020052 
044524 
044524 
042520 
040503 
004451 
040450 
024514 

122 
036075 



.ASCIZ <CR><LF>'TinE EXPIRED WAITING FOR RDY'<CR><LF> 



052125 047440 E.HDR2: .ASCIZ ' OUT OF RANGE ERR0R'<CR><LF> 

040522 043516 

051105 047522 
000012 

044S24 042515 E.TinoV: .ASCIZ <CR><LF>' TIMER 0VERFL0UED'<CR><LF> 

053117 051105 

053517 042105 
000 

052012 046511 E.TIMEX: 

054105 044520 

020104 040527 

047111 020107 

020122 042122 
000012 

050101 021440 E.6AP: .ASCIZ ' GAP f ' 
.•TIME DOCUMENT LINES 

025052 025052 L HDR1: .ASCIZ • ******«***************w*********t**********»********t*«*«*««««««»«««*«« 

025052 025052 

025052 025052 

025052 025052 

025052 025052 

025052 025052 

025052 025052 

025052 025052 

025052 025052 

025052 025052 

025052 025052 

025052 025052 
000 

052040 030115 L.HDR2: .ASCII '* TN02 DRIVE FUNCTION TIMES- DRIVE # ' 

051104 053111 

052506 041516 

047117 052040 

051505 020055 

053111 020105 

046123 053101 L.ORV: .ASCII '0 SLAVE # ' 
020043 

040 L.SLV: .ASCII '0 ' 

041440 040510 L.CHAN: .ASCIZ '9 CHAN. SER # ' 

051440 051105 
000040 

025012 005015 L.HDR3: .ASCII ' •<CR><LF>'*'<CR><LF> 

052506 041516 .ASCIZ FUNCTION'<HT><HT>*TIME(SPECIFICATION)'<HT>'TIME(ACTUAL)'<CR><LF> 

047117 004411 

042515 051450 

044503 044506 

044524 047117 

044524 042515 

052103 040525 

00S01S 000 

047101 042507 L.RNG: .ASCIZ 'RANGE=<' 
000 
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SEO 007<^ 



3676 


014205 


101 


052103 


040525 


L.ACT: 


.ASCIZ 


'ACTUAL=' 


3677 


014212 


036514 


000 










3678 
















3679 










.-TEST DESCRIPTOR 


HEADERS 

WRITE FROM BOT'<HT> 


3680 


014215 


052 


053440 


044522 


A.TOOl: 


.ASCIZ 


3681 


014222 


042524 


043040 


047522 








3682 


014230 


020115 


047502 


004524 








3683 


014236 


000 












3684 


014237 


052 


053440 


044522 


A.T002: 


.ASCIZ 


WRITE S^ART <HT><HT> 


3685 


014244 


042524 


051440 


040524 








3686 


014252 


052122 


004411 


000 








3687 


014257 


052 


053440 


044522 


A.T003: 


.ASCIZ 


• WRITE SHUTDOWN <HT> 


3688 


014264 


042524 


051440 


052S10 








3689 


014272 


042124 


053517 


004516 








3690 


014300 


000 












3691 


014301 


052 


053440 


A J £ Pit 

044522 


A.T004: 


.ASCIZ 


• WRITE SETTLEOOWN <HT> 


3692 


014306 


042524 


051440 


A 4 Ar 

052105 








3693 


014314 


046124 


042105 


A^9 P 4 9 

053517 








3694 


014322 


004516 


000 










3695 


014325 


052 


051040 


A J A P Af 

040505 


A.TOOS: 


.ASCIZ 


1 A AP A A r A AM AAVl ^llV^^IlT^ 

• READ FROM BOT <HT><HT> 


3696 


014332 


020104 


051106 


046517 








3697 


014340 


041040 


A 4 4 9 

052117 


AA4 4 4 4 

004411 








3698 


014346 


000 












3699 


014347 


052 


051040 


A J AP AP 

040505 


A.T006: 


.ASCIZ 


READ START'<HT><HT> 


3700 


014354 


020104 


052123 


051101 








3701 


A 4 J 9^ t 

014362 


A A M F M 

004524 


AAAA4 4 

00001 1 










3702 


014366 


A t A AP t 

020052 


042522 


A J ^ 4 A4 

042101 


A.T007: 


.ASCIZ 


• READ SHUTDOWN <HT><HT> 


3703 


A4 1 99 J 

014374 


AP 4 J 4 A 

051440 


A P ^ r 4 A 

052510 


A J ^4 

042124 








3704 


A4 £ J A1 

014402 


AC9r4 9 

053517 


A A J r 4 ^ 

004516 


AAAA4 4 

000011 








3705 


014410 


A t A AP t 

020052 


AJ tr^^ 

042522 


A 4 ^ 4 A4 

042101 


A.T010: 


.ASCIZ 


■ ^ APAA f*F*V9l PA Al lU f ^ t i V ^ 

• REAP SETTLEOOWN'<HT> 


3706 


014416 


AP 4 J ^ A 

051440 


Ar^4 Ar 

052105 


t\ t A 4^4 

046124 






3707 


014424 


A J t 4 AP 

042105 


AP 9r 4 7 

053517 


AA J C 4 ^ 

004516 








V^A A 

3708 


A4 J J 9 1 

014432 


AAA 

000 












3709 


014433 


A P t 

052 


A P 4 A^ A 

051040 


A J AP AP 

040505 


A.T011 : 


.ASCIZ 


• READ REV START <HT> 


3710 


014440 


020104 


A4 t P ft 

042522 


At A4 t^ 

020126 








3711 


014446 


A P t 4 1 9 

052123 


AP 4 4 A4 

051101 


AA4 Vft 4 

004524 








3712 


A4 4 4 P J 

014454 


AAA 

000 












3713 


A4 £ £ ^ ^ 

014455 


AP 

052 


AP 4 A4 A 

051040 


A4 ACAC 

040505 


A V A4 t 

A.T012: 


.ASCIZ 


■ ^ AP AA APb^ y*Ui>VAAllUl ^U9^ 

READ REV SHUTDOWN <HT> 


3714 


A4 t t A ^ 

014462 


A t A4 A t 

020104 


042522 


A'>A4 1^ 

020126 








3715 


A4 t a 9A 

014470 


A / ^4^9 

044123 


Ad4 

052125 


A4 7CAJ 

047504 








3716 


A4 i i 9^ 

014476 


AJ 74 ^7 

047127 


AAAA4 4 

00001 1 










974 7 

3717 


A4 £ r A^ 

014502 


A^ A A r ^ 

020052 


042522 


A J 1 4 A 4 

042101 


A W A4 9 

A.T013: 


.ASCIZ 


• READ REV SETTLEOOWN <HT> 


974 A 

3718 


A4 ^ r 4 A 

014510 


AfT 4 A 4 A 

051040 


AC 74 AC 

053105 


A IP 4 J J A 

051440 








994 f% 

3719 


014516 


ACtl AC 

052105 


A 4 ^ 4 ^ / 

046124 


Ay ^4 AC 

042105 








99^ A 

3720 


A4 S ^ 

014524 


AP9r4 9 

053517 


A A ^ C 4 ^ 

004516 


AAA 

000 








99^4 

3721 


A4 J C V4 

014531 


Af ^ 

052 


AC ^A 4 A 

052040 


AC 4 4 ^C 

051125 


A.TOIh: 


.ASCIZ 


• TURN AROUND DELAY F-R <HT> 


V711 

3722 


A4 S 

014536 


A'%A4 4 A. 

020116 


AC 4 4 A4 

05110' 


AOC 4 7 

052517 








9919 

3723 


A4 t ^ t t 

014544 


A 4 1 4 4 ^ 

042116 


A t ^ A 4 A 

042040 


Ay ^ 4 A C 

046105 








3724 


014552 


Ar ^ C A4 

054501 


Ay 9Ay A 

043040 


AC 4 AC C 

051055 










A1 i. C4LA 


00001 1 












3726 


014562 


Q2QQS2 


052524 


047122 


A.T015: 


.ASCIZ 


TURN AROUND DELAY R-F'<Hr> 


3727 


014570 


040440 


047522 


047125 








3728 


0U576 


020104 


042504 


040514 








3729 


0U604 


020131 


026522 


004506 








3730 


014612 


000 












3731 


014613 


052 


043440 


050101 


A.T016: 


.ASCIZ 


GAP SIZE-STOP HALF'<HT> 



C2TULA0 


Tn02 DRIVE FUNCTION TIMER 


NACY11 30(1046) 


C 7 

13-JUN-78 13:54 PAGE 80 


SEQ 0080 


CZTULA. 


P11 07-JUN-78 


17:07 




PROGRAM MESSAGES 


3732 


U 1 lOcU 


\jj 1 •••III 


055111 


026505 








3733 


U 1 ■lOcO 


\IJC 1 C J 


050117 


044040 








373A 






004506 


000 








3735 


\J 1 *VD*t 1 




043440 


050101 


A TQ17- ASCIZ 


GAP SIZE-START HALF'<HT> 




3736 


U 1 1010 




055111 


026505 








3737 




nS71 7^ 


051101 


020124 








3738 


U 1 ■lOOc 




043114 


00001 1 








3739 


V 1 *tur w 




040507 


020120 


A T020' ASCIZ 


GAP SIZE-INTERRECORD'<HT> 




3740 


MLftJtt 




042532 


044455 








3741 


U 1 f 


0S71 16 


051105 


042522 








3742 


01^717 

U 1 *t r 1 C 


047503 

W^ f JVJ 


042122 


00001 1 




'« GAP CONSISTANCY'<HT> 




3743 


014720 


070052 


040507 


020120 


A T021 : ASCIZ 




3744 


0147?6 


047503 


051516 


051511 








3745 


01 A 7^4 


040S74 


041516 


004531 








3746 


01^74? 


000 








DATA TIME-200BPr<HT> 




3747 


01474'^ 


052 

w^C 


042040 


052101 


A.T023: .ASCIZ 




374S 


014750 


070101 

W^W 1 W 1 


044524 


042515 








3749 


01^756 


031055 

W^ 1 W^ ^ 


030060 


050102 








3750 


014764 


004511 

WW^^ 1 1 


000 






*• DATA TIME-556BPr<HT> 




3751 


014767 


052 


042040 


052101 


A.T024: .ASCIZ 




3752 


014774 


020101 

WCW 1 W 1 


044524 


042515 








3753 


01S002 


0374S5 


033065 


050102 








3754 


015010 


004511 

WW^ ^11 


000 










3755 


015013 


052 

W^C 


042040 


052101 


A T025: .ASCIZ 


DATA TIME-8C0BPI'<HT> 




3756 


015070 


070101 

wC w 1 w 1 


044524 


042515 




• 




3757 


01 5076 


034055 


030060 


050102 








3758 


015034 


004511 


000 






'* DATA TIME-1600BPI*<HT> 

IF F^ ■ " 1 4 < » W P W W*F' • • »^ 




3759 


015037 


052 


042040 


052101 


A T026: ASCIZ 




3760 


01 5044 


020101 


044524 


042515 








3761 


015052 


030455 


030066 


041060 








3762 


01 5060 


044520 


000011 










3763 


015064 


020052 

WC WW^C 


051105 


051501 


A.T027: .ASCIZ 


*• ERASE GAP TIME'<HT> 




3764 


015072 


020105 

WwW 1 w ^ 


040507 


020120 








3765 


015100 


044524 

W~~ ^fc^ 


042515 


00001 1 








3766 


015106 


020052 

Wfc WW^fc 


051127 


052111 


A.T030: .ASCIZ 


'* WRITE FILE NARK'<HT> 




3767 


015114 


020105 


044506 


042514 








3768 


015122 


046440 

W~ W~~W 


051101 


004513 








3769 


015130 

W 1 ^ I ^W 


000 

www 












3770 


015131 


052 


052040 


050101 


A.T031: .ASCIZ 


'* TAPE SPEED-FUD*<HT> 




3771 


015136 

V ■ ^ ■ ^W 


020105 

WfcW 1 w V 


050123 


042505 








3772 


015144 


026504 

Wfc W 


053506 


004504 








3773 


015152 


000 








TAPE SPEED-REV*<HT> 




3774 


015153 


052 


052040 


050101 


A.T032: .ASCIZ 




3775 


015160 

W I ^ 1 wv 


020105 

WfcW ■ V ^ 


050123 


042505 








3776 


015166 


026504 


042522 


004526 








3777 


015174 


000 












3778 




015176 






.EVEN 






3779 




015176 






RDBUFr. 






3780 




015176 






WTBUF:. 






3781 


015176 


000200 






.8LKU 


128. 




3782 




000001 






.END 


;THAT'S ALL FOLKS! 
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r 7 Tl H A 


P11 07-JUN-78 17:07 




TABI C 












ceo AARI 


* 


010i5* 


CNVDEC 


AA9TA3 
UUc JOC 


C HAD? 


AI TCCA 




i Ci u 


AI AAAA 
U 1 *lUOO 


oil -YAAAAAI 




ACCL = 


4 AA AAA 

1 00000 


CNVOCT 


AA33C/. 
UUCCJH 


C klAUA 
C . NAVA 


AI TT££ 

U 1 J J"!*! 




ntrc - 


A9AAAA 


D19 -fAAAAA? 
nl£ — *UUUUU£ 




ANuTAB 


oomz 


CNvTAO 


AA571 5 
UOc f 1 C 


C kirAkI 


AI T?AC 
U 1 J£l3 




nl/rc - 


AAAAAA 
UUU*iUU 


01 T -TAAAAAT 
n 1 J -AUUUUU J 




AS = 


AAAA4 ^ 

00001 0 


CNvTD 




t . NUK V 


AI TT1 5 




MBUCr — 

nnVCL - 


AAA9CA 


D1A -TAAAAAA 
H 1 H -aUUUUU*! 




A C C 1 ^ 


AAi 1 TA 

0011 30 


CNVTO 


AA07AA 
UUccOO 


C MCI U 


rt1 TT3A 
U 1 J j£D 




■AI - 

nUL - 


A1 AAAA 


D1C -TAAAAAC 
HIJ — AUUUUU J 




ATA — 

ATA = 


i A/IAAA 
100000 


CR = 


AAAA1 C 
UUUU 1 J 


c cr T 


AI T£i1 
U 1 jll 1 




MD 


AAAA9A 


cr - lAnnnn 
— i UUUUU 




A T f MC 


AA1 Ai ^ 

001 01 z 


CRLF 


AAI XTL 


C T t UC 

c • 1 inc 


A1 TA?T 
U 1 jO£ J 




MV C - 

n*r - 


AA1 AAA 
UU 1 UUU 


crADC - 1 AAAAA 

auurc - iumuuu 




A T f MTD 
A 1 in ID 


AAi Ai y 
001 01 H 


CS1TH = 


AA3AAA 

UUcUUU 


C T t HA 

c . 1 1 nu 


AI TC7A 




■ CAT 

n . cu 1 


AI T9AA 
U 1 9£UO 


crPAAD AAinn9 

oLrAUn WtWC 




A. lUOl 


Ai / ^i C 

01h£ 1 b 


r c i — 


AAAAAA 
UUUUUU 


C TDDA 


AI T??A 
U 1 j££0 




M MAM 


AI 9AAA 
U 1 £OOU 


cnuM - AAAAPA 
SVIflV — WWC\I 




A. TUU£ 


AI / 017 


Cat = 


AAAA1 A 
UUUUlU 


C III! IT 
C •UNI 1 


ni TT77 
U 1 JJl 1 






AA1A79 
UU 1 Or £ 


CrFUTC A19T1A 
SACWIS UI£J<1 




A rn/tT 
A. TUOj 


AI Z 0C7 


i\ A cu 
DASH 


AAi /AC 

UU1^U3 


c r - 


AAAAAA 
UUUUUO 






AI AAAA 
U 1 UUUU 


CI A - AAAAA 1 
5LA - UUUUU 1 




A. iWi 


AI £ TA1 

01h301 


Do 


AAAAOO 

UUUUcc 


r rc - 
r LC 


AAI AAA 
UU 1 UUU 




ucc — 

WCr — 


AAAAAA 


CI Al/CC AnC79A 




A. iWJj 


AI A TOC 


f\ r AAI C T 


AA3^7A 
UU£*i r U 


C t AI t <u 


A1 ?1C? 
U 1 £ 1 3£ 




ncn — 


AAAAAA 
UUHUUU 


CI D - 1 7777A 

dLn — \ 1 1 1 1 H 




A . 1 UUO 


AI / T/ 7 


DcLAT 


AAA TCi 
UUh J J*» 


CUT - 


nnnnon 

UUUUcU 




MAP - 

nur — 


AAAAAA 
WWW 


CI WAl/A AAACAA 
9L*nVA UUHjOU 




A TOn7 
A . 1 UUr 


AI I. TAA 


f\CI A VU 

DcLATV 


t\t\LL(\L 


r rc vct- 


UUU£H«» 




UADMl 1 - 
RUnn 1 1 — 


AAAXAA 
WVjW 


CI WMiMI AAIAAC 
9L*IVUn WiWj 




A . 1 U 1 U 


Ai / / i A 


r\CI TIM 

DEL Tin 


AA1 ^^L 
UU 1 1 1 *• 


CDitruT- 
r KnLN 1 - 


1 f f lUU 




klB7ri c 
Nn£r LO 


AAI 1 97 
UU I 1 Ci 


CI VPTD AAI AAA 
9L*rin UUlUUO 




A. 1 U 1 1 


Ai/ / 

OlHH 55 


n 1 r*T AD 

D 1 b 1 Ao 


rtA1 1 T3 


cuncpr 


AAC1AA 

UUj iuo 




If 9W - 


UUUHUU 


CI VTRI AA1 1 AA 
9L*IOL UU 1 lOH 




A mi 3 
A. iUl£ 


AI 


n f CDI A — 

DISrLA- 


1 77C7A 


CAD 
uAr 


AAI 19A 
UU 1 l£U 




ArTAI A 
UL 1 ALU 


AAI 11 A 
UU 1 1 1 0 


CU - AOOOTA 
91V — UUUU.3U 




A rni T 

A. lUO 


Ai /CAO 


DlVlDt 


UU<IHHC 


CADAlr 
UArUK 


AA^OOA 
UUhccO 




UI/JllJ i 


Uv 1 1 ll 


CHPT 00^910 
9ivr i wjc 1 u 




A tml 
A. TUl*i 




DLl 


1 AAAAA 
1 WVW 


CADTDl 
uAr 1 BL 


AAI AC^ 
UU 1 U5* 




ADf — 

Url - 


A90AAA 


cPArc oniAio 

SrALC UUIHIU 




A. 1 U 1 7 




vrH — 


AAAAAA 
UUUHUU 


CA 

uu - 


UUUvU 1 




AB - 

Ulf - 


UVU£UU 


CPArF9 001^07 
9rALC£ UwlHUr 




A. 1 U 10 


AI £ AI T 


DnI Vco 


AAC^7A 
UUjHr U 


II 1 In 1 D 


AAI C75 

UU iJlC 




Acr - 


AO A 1 no 

UUU 1 UU 






A. 1 U 1 r 


Ai / A/ 1 


f\ D li A U A 

Dn VAVA 


UUH J j£ 


Ul T — 


1 U*»1UU 




AilTBilF- 

uu i our — 


AA^'f AO 

UU9 J1U 


CPrBFVs OOOO'XP 

9rLnCW" UUwwJ£ 




A. 1 UcU 


AI /,A7A 


DKVNUn 


AAI AA^ 
UU 1 UUH 


ucuD — 


1 77S7ft 
1 r f 7f w 




AllTCAD 
UU 1 WW 


A09A00 

WCvW 


CPD - 009000 
jrn — Vw£vwv 




A Tn51 
A . 1 \lc 1 


A1/.70A 


nOUTQI 
DKV loL 


AAI 1 
UU 1 1 J'* 


UT > 

n 1 — 


nonm i 

VwVvi 1 




AilTCOr 
UU 1 9rL 


009^0^ 

UUcJUt 


ccr = 000100 

9Jl- — UwU 1 Uv 




A mot 
A. lUcJ 


A1Z.7A7 
OlHf HJ 


no V — 


AAA9AA 
UUUcUU 


1 nD •> 
lOa - 


AAAA1 A 
UUUU 1 U 




DABUCr'- 


AAA1 1 A 
UUU 1 1 •» 


CTtHTR nniAiA 

dliniO UU IHiO 




A. TUCH 


AI A7A7 


DKTILK- 


A A AAI A 


1 c — 


AAA1 AA 
UUU 1 UU 




DAT — 

rA 1 — 


nnAA9A 


ClrPTB- AAAAAA 
SIArili— UUUOUU 




A. iVCJ 


AI CA1 T 


DS 


AAAA1 9 
UUUU 1 C 


fir — 


UUUUU 1 




rCf LRL — 


000900 
UUU£vU 


CUB 001 000 

9Wn Uv 1 WU 




A . 1 UcO 


AI (:AT7 
Ul jU3r 


nT — 

V 1 


AAAA9A 
UUUUcO 


tl D - 
ILK - 


WVWC 






OOOOAO 


CUOA = 000100 

9WUO Uvv 1 W 




A Trt37 
A . iVcf 


AI CAAA 


1 ' c — 
1/ 1 c 


AI AAAA 
U 1 UUUU 


INBUr 


UU 1 cOI 




DC1 AAA- 
rC lOUU— 


009000 
WCVW 


C1I07 r 000700 

9Wr " Uvv£UU 




A TATA 
A. lU3U 


AI CI AA 
U 1 J 1 UO 


nuA - 
U VA - 


AA/,AAA 


turuAc- 


AAA1AA 




DFUCr - 
rrVCL — 


onoo9A 

UvvU£"» 


CUOR = 000^00 

9WUO UUUHUU 




A TATI 
A. iUj I 


AI CI Tl 


nuA — 
U VU - 


AAAAAA 
UUUUUU 


t II I T 


UU5 jHv 




DCF - 
rwc — 


009000 
WCWv 


CUOQ - 001 000 

9WU7 — UU i UUU 




A TAT? 
A. iVjc 


AI CI CT 


UV 1 


AAAAA 1 
UUUUU 1 


tnTucr— 
lU 1 VCL- 


AAAAOA 

MWIVcV 




DIP — 
rir - 


090000 
U£UUUU 


cum - 009000 

9W 1 U — MvCVW 




AlO - 


AAA/. A A 
UUUhUU 


UVc - 


AAAAA) 
vMvvVC 


ID — 
IK 


AAAIAA 
UUUIUU 




DIDO - 


177779 

utile 


cull - OOAOOO 

9W 1 1 — UUHUUU 




A1 7 

A 1 f - 


AAI AAA 
UU 1 UUU 


nuT — 


AAAAAT 

UUUUUj 


1 truT 


AAI 191 
UU 1 Ic 1 




r inwCL— 


0009A0 


CUIX = 070000 

9V U v£WVI/ 




OA — 
OA - 


nnnnnr 


nu£ — 
UV^ - 


AAAAAA 
VVXIW/'* 


1 ABU 
1 •DNV 


ni 








CU1£ = OAQOOO 

9W 1 H ~ vHvvvv 




OA r — 
oAl 


AAAA1 A 
UUUUl U 




AAAAA< 


1 •UKV) 


U Icf f J 




PI KUFT- 


00010^ 
Uvv 1 Ul 


CU1S = 100000 

9V 1 1 vvvvv 




Oct: I M 


AAAT1 L 

UU031 M 


DVO 


AAAAAA 
VvMMvO 


t IID7 


U 1 J 1 93 




r Hw" HI 


001 19A 

W 1 1 £1 


TAP - 0^0000 

1 nr vHvvvv 




QCI 1 


AAI A AT 
UU 1 hUj 


nu7 — 


AAAAA7 


1 DCA 
1 .KCU 


AI 379A 
U 1 £ ( CO 




PCPI - 


009000 
MMCvW 


TRITUF- 00001 & 

IDIIVC'-' UUUU i H 






AAI T77 

UU \jff 


cinu 


AA1/,A1 
UU 1 •lU 1 


I crcu 


AI T11A 
U 1 9 




PCU - 

raw — 


1 7777 ft 

I 1 f 1 1 Q 


Tr - 0000X7 

1 L \t\tM\JjC 




OAT — 

BO I - 


AAAAA7 




AAAATA 
UUUUjU 


t ci tie 


AI TAXC 

U 1 jU J J 




PI Ml IC 
rUDLld 


00X000 
WjWV 


TIHFB OO^OAO 

1 IflCA vvHvuv 




OD r 9AA— 


AAAAAA 
UUUUUU 




AI 77AA 
U 1 ££00 


1 C — 


AAAA1 9 
UUUU 1 £ 




BABiiC - 


01 SI 7A 
U 1 7 1 • o 


TIHFBB 00^070 




OD I <:ikA- 

ori D30- 


AAAZAA 
UUUUUU 


CAT - 

cu 1 


AAAAAA 

VVCVVV 


1 rc - 


1 f f 910 




Bnrun - 

llUr WW — 


000070 

wwwUf U 


TIHFBO 00A10& 

1 IflCnv VVH 1 VH 




OD I BAA— 


AAI AAA 
UU 1 UUU 


CD - 


AAAA1£ 
UUUU 1 *• 


1 irtfCr — 
LKVCL — 


AAA1AA 
UUU lUU 




BABFW s 
nUnCw 


00007A 


TrHFRI 0040X^ 
1 men 1 w^v^H 




DDTUCr— 

or 1 Vtt- 


AAAA1 L 
UUUU 1 •! 


CDACC — 


AAAA9/, 
UUUU£*» 


1 DB ~ 
UrO 


1 77C1 A 
1 f f 910 




BAY r 


000900 
uwcw 


TIHOK OOillft 
1 I nw^ vvH 1 f V 




CDnl 1 - 


AAAT7A 

UUU3£U 


CDCi r 


AA1 1 5T 
UU 1 1 £ J 


1 DC - 
Lri 


1 r r 9 l"i 






00C0S9 


TUmil 00X770 
1 1 nuw wj r ■ V 




CNKDKV 


005620 


ERR = 


A/, AAAA 
U'lUUUU 


i ATT 
L • At 1 


A1 A9AC 
U 1 •i£U9 




DCCUPr- 


000010 

UUW 1 V 


TKB r 177S6? 

1 Iff JVC 






006124 


ERRTRP 


AATTn9 
UU^jUc 


1 fli All 
L . LHAN 


A1 iA71 
U 1 HUr 1 






AACA70 

wjv I V 






f u7 


010000 


ERRVEC= 


AAAAAA 
UUUUUh 


L • UKV 


A1 ^ACA 
U 1 '•U9'* 




BUIIIIT 


OO^AIQ 

WHO 1 V 


Tifc = 177560 

1 KO — Iff «/UV 






000040 


E.DRV 


AI TTT/. 
Ul JJjH 


1 ur\D 1 
L .nun I 


AI TA7Z, 
U 1 90f H 




DBO 


OOOOOA 


1 K T C V *■ V V vvwv 




CNTRLC = 


000003 


E.GAP 


013664 


L.HDR2 


014007 




RUO = 


000006 


TNBASE 001010 




CNTRLO= 


AAAA1 7 
UUUUl r 


C iJf\D 

t • nun 


013465 


L.H0R3 


014110 




RUDOFFs 


000002 


THCRD 005170 




CWTRLU= 


000025 


E.HDR1 


013475 


L.RNG 


014175 




R10 - 


1000000 


TBCSl = 172440 





E 7 



CZTULAO 
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FUNCTION TIMER 
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C2TULA.P11 07-JUN-78 17:07 


SYHBOL 


TABLE 












THK = 


OOOOOA 


TST010 


007502 


TST027 


011760 


UC 


000002 


fHT = 


000011 


TPB = 


177566 


TST011 


007622 


TST030 


012044 


UCE = 


040000 


SNULL 


001760 


TPS = 


17756A 


TST012 


007720 


TST031 


012322 


UCHKF = 


000050 


STKFLG 


001763 


TPVEC = 


00006A 


TST013 


010030 


TST032 


012450 


UCHKR = 


000056 


STPB 


001766 


TRAPVE= 


00003A 


TST014 


010170 


TYPOEC 


002370 


UFHK = 


000026 


STPFLG 


001762 


TRE = 


040000 


TST01 5 


010262 


TYPE = 


000004 


UFUD - 


000060 


$TPS 


001764 


TRTVEC= 


00001 A 


TST016 


010370 


TYPFLC 


001126 


URDCNT: 


1 77600 


= 


015576 


TSTNUN 


001122 


TST01 7 


010464 


TYPHOR 


006540 


WRITE 


005034 


.HLT 


003304 


TST001 


006672 


TST020 


010574 


TYPOCT 


002262 


WRL = 


004000 


.INPUT 


003126 


TST002 


006756 


TST021 


010714 


UBREAK= 


177770 


URT.BK 


005126 


.RESTO 


002232 


1 5 1003 






011220 


UNS = 


040000 


WTBUF = 


015176 


.REUIN 


004752 


TST004 


007124 


TST023 


U 1 1 ecu 


IINTFND 


001 125 


tCHARC 


001770 


SAVE 


002210 


TST005 


007232 


TST024 


011350 


UPE = 


020000 


SCNTRL 


001771 


.SCOPE 


003552 


TST006 


007316 


TST025 


011500 


WAITRD 


004646 


fCRLF 


001772 


.TYPE 


001776 


TST007 


007402 


TST026 


011630 


UAITTl 


004650 


$FILL 


001761 






. ABS. 


015576 


000 

















SEQ 0082 



ERRORS DETECTED: 0 

.CZTULA.SEO/SOL CZTULA.P11 
RUN-TINE: 18 37 2 SECONDS 
RUN-TIHE RATIO: 92/58=1.5 
CORE USED: 5K (10 PAGES) 
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